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A bord d'un pere 
perfectionné, vous devez 
détruire une base ennemie 
remplie de pièges. 

Seul contre vos adversaires, 
vous n'avez que de pauvres 
bombes (3) à opposer aux 
danger des installations 
souterraines. Votre 
carburant est limité et vous 
devez vous ravitailler en 
cours de route si vous 
voulez parcourir tous 

les tableaux. 

10 ENV 9.15,-1.8 


20 CLEAR: ON ERROR GOTC 36:G0T0 5ü 
30 IF ERR=7 THEN GOTC En 


40 PEN #2.2:PRINT #2, "ERREUR":ERR: "A LA LIGNE":ERL:STOP 


90 NA=1:NE=2: NC=3: ND=4: NE=S : NF=6 


(1) SCORE (1) 220000: Nos {1)="SEBAST": SCORE (2):15000: Nos (2) > 
="ALEX ":SCORE (3)=10750:No$ (3) ="LIONEL": SCORE (47 =7E50: 


No (4)="MARC": SCORE (5) =5200: No$ (5) ="ERHAN" 

TO HHMEMNENENONENHE 

80 ‘ # redefinition symboles # 

à Q0  HPHAMPMEPHOMNHONHEHHE 

100 SYMEOL AFTER 215 

110 SYMEOL 216,0,15,0.0,7,15,2955, 255 

120 SYMBOL 217,0,240,128,128,240,40, 56,254 

130 SYMBOL 215,224,60,6,65, 65. 6, 60,224 

140 SYMBOL 218,255,295, 255, 295, 255, 255, 259, 255 

150 SYMBOL 219,16,56,56, 56,56. 56, 124,214 

160 SYMEOL 252, 

170 SYMBOL 233,255, 
13 


De 299, 299, 2994 2994 294 293 
180 SYMBOL 234.1 i 


2:31,63,127,255 


25 
#2 
































190 SYMEOL 235,128, :192,224,240,240,252, 254,285 ER 
200 SYMEOL 236.295,127.65,31,15,7,3,1 CG 
210 SYMBOCL 255,294, . 286,2845,754,105, 28 MD 
220 SYMEOL 259.255,258,254,254,252,252,249. 348 ML 
236 SYMEOL 240,15. 15,7, es Î #Y6 
240 SYMEOL 241 240,240, 224,224, 192,192.12 26,158 MR 
250 SYMBOL 226,6,0,0,0,.66.96,127.ë7 EF 
260 SYMEOL 242,31,31,865,65.127,127,295,255 2H 
270 SYMBCL 245,246, 246,252,252,254,254,255, 285 #MR 
280 SYMEOL 244,1,1,3,3,7,7,15,15 2" 
290 SYMEOL 245, 28, 126.192, 192,224,274,340,340 ME 
300 SYMEOL 746, 255,255, 195, 195. 195,255. 255.255 FMC 
310 SYMEOL 255,0,126,126,126,126,126,126,0 HF 
320 SYMEOL 238,255,255, 127,127, 63,63,31,31 FHÈ 
330 SYMEOL 221,0.63.,0.0.7,15,255, 255 ?EY 
340 SYMBOL 249,1.3,7, 15,31. 83,127,255 CA 
350 SYMEOL 250, 128, 192,22 .240,246,257,254, 255 KE 
360 SYMEOL 254.0,16,124,254,254,124, 56. jé :GD 
375 SYMEOL 222, 0,252. Fr .249,40,56.25à HN 
380 SYMECL 22 RE 
390 SYMEOL 72,294, 252, 8,292 ëVT 
400 SYMBOL 225.0,9,0,1 PE 
410 SYMBOL 2%é, 0,0,0.0, 94,0, 100. 87 PAL 
420 3YMBOL 227.0,93,0,0,5,8, 213,134 *PB 
46 SYMEOL 228,0,220, 126. 0,208, 40,4, 166 : EL 
440 SYMECL 229,0.0.0,0,464,0,34,65 IN 
450 SYMEOL 241, 240, 240,224, 774, 192,192,128,128 2MV 
4ëû SYMEOL 251,0,36,0,0,4,0,80.10 +1 

470 SYMBOL 252,196,128,0,144,:3,84,126 C6 
4e SYMEOL 253.21,15.0.6 2RY 
490 SYMEOL 247,170,220,8, 180 :VG 
900 SYMEOL 246,0,5 :M2 
510 SYMBOL 231,72,72.0,164 TI 
520 SYMBOL 230,0,232, 48, 31, 48,32 >Xh 
SO ROMEO 38] 
940 ‘+ PRESENTATION # RE 
COÛT :TA 
J60 MODE 1:INK G,11:INK 1,0: INK 3,26: NE 2,6 +JH 
d/0 GOSUB 1670 0H 
J00 HINDOW #1.5,21,4,16:PAFER #1,1:CLSH#1 ?GE 
990 WINDOW #5,10,24,19,24:FAPER #5, 1: CLSHS +JY 
&û0 WINDOW #6,9,24,18,23:PAFER #6, 0:CLGS#é 3HK 
6iû WINDOW #2, 4,20,3,15:PAPER #2, 0: CLS4#2 >G4 
620 WINDOK 43, 25,39,9,24:PAFER #3, 1:CLS#S 3H] 
630 WINDOW #4,24,38,8,23:FAPER #4,0:CLS#4 HH 
b4û PEN #2, 2:LOCATE #2,3,2:PRINT#2, "COFTERMISSION" :WM 


850 LOCATE #2, 2,9: PRINT#2, CHRS ( 220)+CHR$(221)4CHR$ (222) AU 


bëû LOCATE #2,2,6:PRINT#2," "+CHR$ (223) +CHR$ (224) 3RE 
670 LOCATE #2,3,2:PRINT#2,CHR${22)CHR#& (1): " 5DM 
_";CHRS (22) CHRS (0) 

680 PEN #2,1:LOCATE #2,6.4:PRINT#2,CHR$(164j:" 1968" ?VU 
690 LOCATE #2,9,6: PRINTH?, "FAR" FIX 
700 LOCATE #2,5,8:FRINT#2, "Sebastien" 3JT 
710 LOCATE #2,6,10:FRINT#2, "LECUYER":LOCATE #2.35,12:PRI AR 
NTH2, HER" 


[3] 












































#4. 4,3: PRINT#A," TOP 5" 


:PRI 





725 PEN #4,2:LOCAT 
730 PEN #4.3:Lü 

St PRINT#4, SCORE nai 
74G PEN #4. i: LOCATE 
6: PRINT#S, SCORE nb 
730 LOCATE de Phais 
«SCORE inc) 


2. 6: PRINTHA, NG$ nb: 


É:3 

JF 
ïs 

+ 

cr 


LOCATE 84,6, 


… 








NT#4,. OS ina): LOCATE #4.6. 


:LOCATE #4.6, 


TiPRINTHE 








769 LOCATE #62, B8:PRINT#4,N0$ nd; :LOCATE #4.6.S:PRINTHA PF 
SCDRE nd! 
770 LOCATE #4,2,9:PRINTHS, NÜ$(nej:LOCATE #44,8,3:PRINTH#A GEL 
4 SCCRE ine) 
780 PEN #6, {:LOCATE #6,2,2:PRIATAE, “Pour commencer ":LOC 35 
TE H,5, 12: PRINT, ‘aopuvez sur 
790 PEN HG, Z:LOCATE #6,4,.4:PRINT HG, "FIREN<: PEN HE, iiPR Hi 
INT #6," ou"::PEN #6,2:PRINT #6." COPY":LOCATE #4,7, 14: 
PRINT #4," {clavieri" 
800 GOTO 1780 ?GE 
815 CALL £ERG6 ÈME 
820 WINDOWS. 3,36,7,24: PAPER #5, L1CLS#S :GL 
835 WINDOWHE,7,35,2, 73: PAPER #6. 0: CLS ?Gk 
845 WINDOW SWAF 0,8 FNC 
OÙ PEN L:LOCATE 15,2: PRINT "BONJOUR, ": PRINT PE 
Bé0 PRINT Une base ennemie s est instalise‘:PRINT JA 
875 PRINT" dans un ancien voican dans ie ":FRINT EX 
880 PRINT" desert. Ils projettent de faire":FRINT FA 
696 PRINT" exploser ja capitale avec une":FPRINT ÿFL 
90G PRINT" bombe nucleaire.Votre misson":PRINT SEL 
915 PRINT" est, si vous l'accenter. de ":PRINT. À] 
920 PRINT" detruire entierement la base en":FRINT HN 
930 PRINT" faisant exrloser leur propre":FRINT F1 
940 PRINT" bombe atomique, E& 
950 CALL SBEG6: CALL EBEGE TX 
S60 HINDOW#5,5,26,5,13:PAFER 45.3: CLS#S ?6V 
970 WINDOW 4,25,4,12:FAFER 1: :PEN 2 5 CLS FT 
gaû LOCATE 1,2 GE 
980 PRINT" Four cela. }' armee" DT 
1000 PRINT ?VA 
1010 FRINT" vous donnera le plus":PRINT 2RF 
1020 PRINT" perfectionne de ses ":PRINT SRE 
1630 PRINT" hejicooteres, ":FRINT HE 
1940 CALL 8EBO6 FT] 
1050 PEN 1:WINDOW 2,35,4,Z3: PAPER 3:CLS :GD 
1060 LOCATE 1,3 WG 
1076 PRINT Cependant vous ne disposerez que":FRINT LG 
1080 PRINT" de 3 bombes et d'une recerve":PRINT *DG 
1090 PRINT" jimitee en carburant. ":PRINT #TF 
1100 PRINT" C'est pourquoi il vous faudra":FRINT ER 
1116 PRINT" detruire toutes instalations':PRINT :HY 
1120 PRINT" ennemies pour recuperer fuel et':PRINT FJE 
1130 PRINT" armement afin d'arriver au":PRINT 3CH 
1140 PRINT" centre de la base ou se trouve":FRINT FY 
1:50 PRINT" ja bombe." FU 
1160. CALL &EBOG FUE 
1170 PEN 3:PAPER L:PAPER #5, 2:WINDOW#S,5,32,4,14:CiL58#5: EK 


NINDOW 4,31,3,13:CLS 
1180 LOCATE 5,2:PRINT" Mais attention! ":FRINT 






INT' Si vous etes 
NT le gouvernement niera PR 
avoir pris connaissance": PRINT 





capturer" 















PRINT" de vos agissement." + 
ALL #EBÜé TE 
PEN Z:PAPER 1 NINDONES.5, 32, 17,23: CLSS MY 
WINDOH ip CL SUJ 
à LOCATE 1,2 54H 
270 PRINT" Ce n'est pas une mission":FRINT #YE 
1286 PRINT" impossible mais presque, ":PRINT PVR 
295 FRINT* BONNE CHÉNCE!" AM 
1300 CALL £HBG6 ?TH 
1510 FEN 1:WINDOW 2,35,4,77 UN 
1326 Fi LE 
= g HF 
1340 PRINT TBLEAU LS FRINT "YT 
1950 PRINT" Vous devrez tirer 4 fois sur le':PRINT *EY 
1365 FRINT" faisceau lumineux ie puis*:FRINT *ÈE 
1570 PRINT" entrer dans le volcan. ":PRINT UC 
1380 PRINT WE 
1390 PRINT " ":CHR$(Z{0is"= Donne 70 L de fuel": FREN FCY 
1400 PRINT " #: :CHRS 246) 1 "= Donne 10 L de fuel et ? bon LA 
bes" 
1410 PRINT " RAVITAILL = RAVITAILLEMENT F4B":ERINT +YF 
1420 PRINT "CHR IZITI4CHRS (IT) 4CHRS (ZE ST 
1450 PRINT  MCHRS(ZST)+CHRS (253) 4CHRS (233) s" = BOMBE :PC 
S NUCLEAIRE" 
1440 CALL 8BRCG #UC 
1450 PEN ZS:PAPER 1:PAPER H£.i HN 
1465 WINDOW#S. 6, 35,8, 14: CLS#S:WINDOW 5,34,7.13:CLS BUT 
1470 LOCATE 6,2:PRINT" TABLEAU & & 10 s'": PRINT :QF 
1480 PRINT" zone non eclairee.Les murs": PRINT ER 
1490 PRINT" sont invisibles," EX 
1500 CALL ZEB06 
1510 FEN Z:PAPER 2 ; 
1520 WINDOW#6.4,37,5,22:CL6#6 3XF 
S30 WINDOWN 3,36,4,21:CLS UE 
1540 LOCATE 1.2 EUR 
1950 PRINT" TABLEAU 17 :Apres avoir amorce":FRINT :CH 
1560 PRINT" la bombe atomique en iui tirant':PRINT HH 
1576 PRINT une bombe, vous avez 135 seconde":PRINT *GL 
1580 PRINT" pour sortir du volcan avant":PRINT #EC 
1596 PRINT" son explosion finale. ":PRINT SUP 
1860 PRINT" TOUCHE POUR JOUER AU CLAVIER":FRINT HV 
1610 PRINT" COPY=FIRE  F=GAUCHE  G=DROITE":PRINT EY] 
1820 PRINT" E=HAUT D=BAS": PRINT FAX 
1650 PRINT" CHANGEMENT D'ARME = E.ESFACE" #LV 
1640 CALL &HEO6 UE 
1650 WINDOW SHAF G,4:CLS >TV 
166û GOTO 275û ÈNJ 
1676 ‘ ?YG 
1680 FAFER 3:CLS LE 
1696 FOR i=20 TO 646 STEP 25 UT 
1700 FLOT :,0,0 ?WE 
1710 CRAUR 0,460 ?CF 
1729 NEXT ?LE 


[al 








1730 FOR 1=390 70 & STEF -Zû 

1740 PLOT G.1,0 

1750 DRAWR 640,0 

{740 NEXT 

1770 RETURN 

1780 CHAR MUSIC HR 

1790 ‘+ d'apres ie feuilleton supercortere # 
1800 ENV 1,10,0,1,.1,.-6,1,4,0,1 

18:56 FOR 
UND 1.n,15.14,14:S0UND 2,n+1,15.14:S0UND 4,n+2,15,14,1: 
NEAT i,i 

1820 dd=1 

1830 READ c.n.dd:iF dd=-1 THEN RESTORE !895:6070 
1840 d=dd#iSsiF INFEY(76)=0 THEN Ti=74:72275: 7327 
3:75=76:60T0 826 ELSE IF INÉEY(9)=G THEN Ti=5s 
258: 14=61:T5=9: 6070 829 


ig2û 


+5 
és 


1850 IF c=2 THEN SOUND c.n.d,1i4,i ELSE SOUND cen.d.i3 

8ëû GOTD 1830 

870 ‘ Ÿ 
1880 DATA 556,358, 301,268, 225, 3ûi,268, 358. 301,402,358,3 :Y 
Gi 


1890 DATA 1,268,5.2,556.,2,398.,2,301,,1,201,1,2,266,,i LR 


1179,1,2,225,,1,150,1,2,301,.1, 134,3, 2,268, , 2,258, , 2, 30 
1.1,113,1,2,402,,1,119,1.2,258,,1,190, 1,2. 301. ,1,134.3 
25 «23584 «2, 3014 «1118, 12,268 12119. 1,2.295..1.1 
50,1,2,301, 


1900 DATA 1,134,3,2,368,,2,356,,7,30i 





.301,,1,17 9,32,536 12,398, 42.301,51, 201. 3,2,268.,2,225 
= +n n 
2,301,,1,225,2, 2,268, 1,2, 358, «1 «201, f2o0s: 1.256,2, 


2,402,,2,358,,1,301,1,2,30!. 
1910 DATA i,268,5,2,536,,2,396,,2,2301,.1,20€. 
.179,1,2,225,,1,190,1,2,301,,1,415 .3,2,268, 2,356 4.2, ëÙ 
{, 1113,1,2,402,,1,119,1,3,358,,1,190,1.2,301,,1,.134,3 
266 ,2,288,142, 30141, 113,1,2,268,,1,119,1,2,225..1, 
150.1,2.301, 
1920 DATA {. 
301 1,,1,100,1,2,353,,1, A CO EU es 


ner 28 920167, Trees ,1,179,2,2,179, 


7 79e 


5 Mic 4 
1,2,366,,i 


4 nm n Ac+ 
did 3,2,170, 42,253 4242284 la 127. 2,2,338,,2 






2 hrs 338, “as 301. 11283 1,22 Se. 
1950 DATA 1,22 25,3,2,451,,2,301,,2,253,,1, 169,1,2,225,,1 à 


,190.1,2,169,,1,127,1,2,225,,1,113,3,2, 179, ,2, 253, , 2, 22 

5,,1,84,1,2,328,,1,89,1,2301,,1.127,1,2.293,,1,11343,2 
451, 2,201, 42. 253,,1,84,1,2,225,,1,89,1,2.149,,1,127.1 
,2,225, 
1940 DATA 1,113,3,2, 179, 2,258, 2,225, 51,68 10233885 le 
67,1,2,301,,1,84,1,2, 253, , 1,75 12, 2,451, «25301, 32,293 s 
2,225,,2,109,1,2,225, 12,179, 42,298, 2,229. 1, 2,338, , 24 30 
1,,2,253, 

1950 DATA 1,1,-1 
LG  ORRÉEERIEIMRURERS 
1970 ‘ * PROG. PRINCIPAL # 
1980 ‘HRK 
1990 TAG:u=u-17:FUEL=FUEL-1 
2000 n=u+is MOVE x vs PRINT "Fes MOVE xy-1S: PRINT " 


i=i 70 3:RESTORE 1980:FOR 1=1 TC IS READ n:S0 à 


152 3085610119,1,2 DV 







3VE 


>FV 


2010 IF INÉEY(TI)=0 THEN X=X-6:FUEL=FUEL-4 ELSE IF INKE YF 








R=i THEN L 
IN (47 


7 #= MT ou, 
î és MISSiLCS : 





M=3 THEN Me! 


Zü6ù 
THEN EOMBES=BOMBES-1: SOUND 2,50, 100, 1,9,,5: 
IF INKEY(T5)=0 AND BOMRES:0 AND TIR=t 6 

1: 


IF INÉEY { (TS=0 AND BOMBES Ù “ann TIR=2 AND larqe=i 
267Ù 
THEN BOMBES=EOMBES-1 : SOUND 2 
2680 
tabi GOTO 1990,714û, 
, 28950, 3960, 4070, 3270 
2690 IF tabi=13 AND v>235 
Y#335 THEN 4170 ELSE IF tabl=10 OR tabl=6 THEN IN 2.0 
1: SPEED INE 7,20û 
2100 ENV 6,1,10,1,10,-1,1:SQUND 1,1000.-4,0,6,0,31 
2110 IF tabl=4 OR tabl=7 OR tabi=1i THEN ji=ji-19: MOVE 
Ji. jit32, LiPRINT es MOVE xji. ji PRINT CHR$ (254) : MOV 
#ji,jitié: PRI INT CHR$(254):: MOVE xji,ji-16: PRINT CHR$( 
5h: 
2120 IF jiisji THEN MOVE x 
LE: PRINT " Ms: MOVE ji, jitiésPRINT " Fssjisvii 


i2,100,1,9, cie 2440 


nn; 


3220,3280, 3380, 3466. 3570, 3680, 3800 


2136 IF TABL=8 THEN MOVE 294,142,3:PRINT "RAVITAILL "es à 


F TEST(360, 180)=3 AND Z4:5 THEN 4220 
2345 PLOT u,h,3:DRAMR 7, L:DRAWR 235,1, 
Euh, GO: DRAWR 6, tsuzua 
2150 LOCATE #2,7,3:PRINT #2,.SC::LOCATE 42,8, 1: PRINT #2, 
BOMBES; :LOCATE #2,22,1: PRINT #2,FUEL:"L 
2160 IF 2=7 THEN LOCATE #3,4,25:PRINT #3. "BOMBE BMORCE 
TEMPS AV, IMPACT: ":SEC:sec=sec-1: SOUND 4,501,2,15:1F T 
AELSS15 THEN INE 1.1,11:INÉ 2,7,8:GFEED INK 20.20 
2170 IF sec=06 AND TABL£:15 THEN GOSUE 2300: sec=140: tab] 
=11:G0T0 3960 ELSE IF SEC=0 AND TABL=15 THEN 4400 
2180 IF xb>x+160 OR ybév-90 OR «b>620 OR vb#40 THEN 120 
qe=0:MOVE xb.yb: PRINT" ": ELSE IF large=i THEN GOSUB 2? 
90 ELSE IF LARGE=? THEN GOSUE 2470 
2190 IF TEST(c+24,t-4)=3 OR TEST(c+24,t-3)=3 DR TEST(c+ 
24,t-6)=5 THEN GOSUB 2300: x=xx: y=yy 
2200 LOCATE #2,21,3: PRINT #2,VIE::PLOT -2 
2219 IF 2=2 OR TABL?7 AND tabl 5 AND on THEN MOV : 
E CtiPRINT " "4CHRS(215)ssc=c+29:IF cac THEN MOVE c+ 
FRiPRINT " 'ssc=bc 
2220 IF fuel<=0 THEN GOSUE 4480 
20 IF 2=2 AND TEST(x+4,y-34)=2 THEN 3060 
2240 IF «22 AND (TEST(x-1,y-14){>0 DR TEST(x425, y 
G OR TEST(x+48,y-14) 656 OR TEST (x-1,y-12) 
40,y-52) 630 OR TEST (x+25, y+2) 
V=YY 
2230 IF TEST(u-1,h-2)23 OR TEST(u-1.h+2)=3 OR TESTIu-1, 
h+3)=3 THEN GOSUE 2300: = xx: y=yy 
2280 GOTO 1990 
22TO ORAN 


>0) THEN G0SUE 2300: x=ux: 





INÉEY{TS2G THEN à 


IF v50 AND TABL=2 THEN 3140 ELSE IF X>630 THEN ONE 


THEN 4120 ELSE IF tabi=i4 AND :v 


«ji, Jit PRINT ei MOVE ii ji= TK 


G:IF uéub THEN MOV àC 


06 
FN 


+JN 


NV 


#J 


z 


#WG 


MX 
A 


pe 2 


>YB 
>HG 





0 OR TESTIx+ 


?TY 


?N6 
3YD 





2280 ‘ # explosion # 

2200 © HAINE 

2300 FOR q=2100 TO 100 STEP -26:S0OUND 2,a,2,9/150,,,30: 
NEXT:FOR-A=1 TO 3:MOVE x, y: PRINT d$(A)3;: MOVE x,y-15:PRI 
NT W$(ñ)::FO0R k=1 TO 175:NEXT:NEXT 


2510 VIE=VIE-1:LARGE=0:MOVE XE,YB:PRINT " "::IF FUELÉG DNE 


THEN FUEL=329 ELSE IF bombes=0 THEN bombes=? 
2320 IF VIE<=0 THEN nf=nf+t:G0TO 4310 
2330 RETURN 
2340 ‘FARMER 
2350 ‘ + BOMBE LARGUEE +# 
2300 ‘ KHNEREENAEREIIER 
2370 large=1:XB=X+8: YE=Y-16 
2380 XE=X+8:YB=V-16 
2390 MOVE XB,YB: PRINT" ": 
2400 YE=YE-12: XB=XB+6 
2410 IF TEST(XB+16,YB-16)=1 OR TEST(XB+B.YB-16)=1 THEN 
2580 ELSE IF TEST(XB+16,YB-16)=2 OR TEST (XE+B, YB-16j=2 
THEN 2570 ELSE IF TABL>2 AND TESTIXE+16,YB-14)=3 OR TES 
T(XB+8,YB-16)=3) THEN 2600 
2420 MOVE XE,YB,3:PRINT BE$::RETURN 
2430 ‘HAE 
2440 ‘ + BOMBE LARGUEE No2 # 
2450 ‘HAN 
2460 large=2: XB=X+46: YB=Y-6 
2470 MOVE XE,YE: PRINT" ": 
2480 XB=XE+16 
2490 IF TEST(XB+17,YB-5)=2 OR TEST(XE+#17,YB-3)=2 THEN 2 
3/0 ELSE IF TABL=1 AND (TEST(XB+17,YB-14)=1 OR TEST OR | 
17,YB-6)=1)THEN BN=BN+1:G0T0 2580 ELSE IF TEST(XB+17.YE 
-4)=1 OR TEST(XB+17,YB-6)=1 THEN 2580 


2500 IF TABL>2 AND (TEST (XB+17, YB-6)=3 OR TEST(XB+17,YB- RE 


8)=3) THEN 2600 

2510 MOVE XB,YE,3:FRINT BB$: : RETURN 
2920 ‘HER 

2530 ‘ * BOMBE ECLATE * 

2540‘ HHHHOMHHHNNE 

2590 ‘ 
2560 SOUND 4,3000,20,12,1,1,6:2=2: MOVE 23 
30,182: DRAW 375,182: DRAW 375,172:5 iii 
=fue1+10: bombes=bombes+2:G0T0 2260 

2570 SOUND 4,1000,20,12,1,1,6:LARGE=0: ne re yb: FRIN 
T'" ";:MOVE xb-7,yb-4: PRINT " "::G0T0 22 

2580 SOUND à A 0 UE xb-7, yb:FRI 
NT" "s:MOVE xb-7,yb-5: PRINT " "; 


2590 IF BN=4 THEN EN=0:60TD 2560 ELSE sc=sc+300: large=0 ; 


:fuel=fuel+10: IF. bombes{15 THEN bombes=bombes+2:G60T0 22 
60 ELSE GOTO 2260 


2600 SOUND 4,2000,40,12,1,1,20: large=0:MOVE xb-7, yb:FRI 


NT " "s:MOVE xb-7,yb-5:PRINT * 
uel=fuel+70 

2610 IF tabl=12 THEN z=7:60T0 2240 ELSE GOTO 2240 

2620 HIER 

2630 ‘+ MISE EN PLACE DES TABLEAUX # 

2640 HAINE 

2650 LARGE=O:yb=-20:sc=sc+100: FOR f=<4 TO 24:FOR. g=1 TO 


"sssc=sc+500!: large=0: f 


0,172,0:DRAW 2 32 


FM 


>HA 


AÔ:READ datas,nombres 
2660 FEN 2 
2670 LOCATE g,f 


2689 IF datasii3 THEN PEN 1:1F datas=?3 THEN PEN &:1F D à 


ATAS:40 THEN FEN ! 

296 IF datas=-13 OR DATAS=-14 THEN PEN 3 
2700 FRINT STRING$ {nombres datas+235 
2710 g=9+NOMBRES-1 

2720 NEXT:NEXT:tabi=tabl+i 
2730 PAPER #2,3:WINDOW #2,1i,45,1 
INDOW #3,1,40,25,25 

2740 PLOT 1.340,1:DRAW 629,340: PLOT 639,16: DRAU 1,16: M0 
VE 1,390:FILL Z:PEN {:LOCATE 1,3:PRINT "SCORE: ":LOCATE 
1,1:PRINT "HOMBES:" 

2750 FEN Z:LOCATE 17,1:PRINT "FUEL: ":FEN #5, 
119,29: PRINT #3, "TABLEAU N, ": TABL 

2760 LOCATE 17,3:FPRINT “VIE: ":LOCATE 33,1:FRINT "arme: 
PEN 0: LOCATE 31,3:FRINT "MISSILES": tir=i 


«PAPER JiPAPER #3, Zi 


2770 MOVE 470,376: DRAU 630,376: DRAW 630,399: DRAW 470.39 : 


G:DRAW 470,347: DRAN 620,347: DRAM 630,399 

2780 TAG:RETURN 

2790 ‘HAE 

2800 ‘ # TABLEAU 1 # 

2810 ‘HARMAN 

2820 ac=420:bc=-24: sc=û: v=0: BN=û: 2=0: X=2: Y=250: c=-2ite à 
200: xb=0: vb=0:sec=135 


2830 h=182:ua=200:ub=-16:u=ua: m=1: vy=y: RB$=CHR$ (250) bo : 


mbes=3:VIE=7:TIR =1 :fuel=320 


2840 A$(1)=CHR$ (220) +CHR$ (221) +CHR$ (222) : A$ (2) =CHR$ (220 à 


)+CHR$ (216) +CHR$ (217) : A$ (10) =CHR$ (223) +CHR$ (224) 


2850 d$(1)=CHR$ (2286) +CHR$ (227) +CHR$ (228) : d$ (2) =CHR$ (229 : 


)+CHR#(251)+CHR$(252):d$(3)=" 

2860 w$(1)=" "+CHR$ (253) +CHR$ (247) :w$(2)= 
CHR${ZI1)iw${I)=" 

2870 TABL=1 

2880 MODE 1:BORDER O:INÉ O,11:INE 1,243 INF 
:FAFER 3 

2890 PEN 5 

2900 GRAFHICS PAPER 0 

2919 MOVE 290,172,1:DRAN 230,182: DRAW 375, 182: DRAW 375, ) 
172 

2920 MOVE 1,1:DRAW 0,20, 1:DRAH 639,20: DRAW 639,0 
2930 MOVE 10,10:FILL 1 

2940 MOVE 150,20,2:DRAH 190,90: DRAW 220, 155: DRAH 
0 | 
2950 DRAH 280,160:DRAH 290,164: DRAH 380, 170 

2960 DRAW 400,80: DRAW 450, 20 

2970 MOVE 170,20,2:DRAM 450,20: MOVE 200, $0:FILL 2 

2980 MOVE 380,20:DRAW 500,125: DRAM 950,125: DRAN 639,25: 
DRAH 450,20:MOVE 600,30:FILL 2 


2,15: INK 3,0 


2990 MOVE 659,20,1:DRAW 620,30:DRAW 600,25: DRAM 590,32: à 


DRAH 580,20:DRAH 629,20: MOVE 630,23:FILL 1 


3000 MOVE 140,20,2:DRAW 1,90:MOVE 140,20:DRAN 1,1B: MOVE : 


2,20:FILL 2 
3010 MOVE 380,20, 1:DRAW 400,35: DRAM 410,25: DRAW 425, 45: 
DRAW 440,23: DRAM 465,20:DRAM 380, 20:MOVE 400,23:FILL 1 





Ge LOCATE #3 : 


" "4CHRS(24B)+ > 


230,17 > 


NU 
3XE 
FX] 


NE 





3020 GOSUB 2730:60T0 1990 
3030 ‘HARRIS 
3040 ‘ + TARLEAU 2 # 
3050 ‘HE 


3060 CLG:MODE 1:INK G,22:INÉ 3,2:INE 1,6:INK 2,0:GRAPHI à 


CS FAFER O:RESTORE 3080:PAPER O:GOSUB 2630 


MCE AT 


3070 SYMBOL 215,128, 196, 230,295, 220, 196, 128: z=0: V=320: x ?X 


=2b0:xuzxs yy=ysH=150: 0770: UA=u: UB=285:GÛTO 1990 


AS 
RE | 


0,7,2,1,1,17,1,15,0 


RS PT re D à 


3090 DATA 1,17,0,7,14,5,1,11,1,16,5,1,0,7,4,1,1,15,1,16 à 


1210,9,41,1,13,1,17,3,1,0,9,4,1,1,12,1,18,3,1.0,9,2, 
1,1,11,1,19,.3,1,0,7,2,1,1,12,1,19,3,1,0.6,2,1,1,13,1,18 
31:0,6,2,1,1,14,1,19,0,6,1,15 

3100 SYMBOL 215,4,206,123,51,123,206,4,0 

3110 HRRHRE 

3120 ‘ # TABLEAU 3 # 

21IO HR 


3140 CLG:MODE 1:PAFER Os INK 3,0: INE 1,2:INE 2,8:INE 0,1 : 


9: GRAPHICS FAPER O0 :RESTORE 3160:G0SUB 26:30 
3150 1=0:Y=320:H=280:U=250: AU: UB=1 35: x=155 
v=yy:ac=640:C=480:bc=C: G0TO 1996 

3160 DATA 1,9,0,4,1,27,1,9,0.4,1,27,1,9,0,4,4,1,1 
3 
à 


0,1,4,1,1,22,0,1,4,1,1,6,3,1,0,4,2,1,1,1,5, 4 
18,1,1,16,0,2,4,1,1,5,0,18,4,1,1,15,0,4,4,1,1,2, 
AT OLA NS TO PRE 


a Eh 
SÉ d 


e Ji 


9e 97 
édeiss 


3170 DATA 0, 1,0,10,1,4,0, 
1,0,28,28400,9,2 114 10403100,18.2. 1,433: 1,0, 1412 
0,1,6,0,5,4,1,1,4,1,4,13,1,0,8,-13,1,0,12,4,1,1,5,0,5,1 
0,1,1,4 


3180 DATA 1,5,3,1,0,3,14,5,0,6,-13,1,0,4,1,5,0,4,2,1,1, 3X 


Jr 0 0801404 14,808 ilobils Slt, 
1,0,2,14,7,0,2,14,7,0,2,1,4,0,4,1,7,5,1,0,3,1,29,5,1,0, 
10,1,24,14,5,0,11,1,30,3,1,0,9,1,32,3,1,0,7,1,40,1,40 
3100 HEIN 

3200 ‘ +# TABLEAU 4 # 

3210 ‘ HFHÉREREHH 


A -07 - à 
Jai T=B2suxs à 


25,23,1,0,10,1,4,1,1,13, ? 





3220 CLG:MODE !:PAFER O:INE SO: INE {1,22 INK 2,6:INE 0,2 GC 
#XJ 4: GRAPHICS PAPER 0 :RESTORE 5250:G60SUB 26350 
PK | 3230 SYMEOL 215,128,252, 170, 171,171, 170,252, 128: tabl=4 >XK 
FYA 
GÙ | 3940 ji=(00:vji=jisuji=ssüssji=120: Y=80: «=1:H=00:U=100: VD 


UA=U:UR=- 16: T=220: ac=250:C=Q0:Dc=Cs uzxs vyzys 220: GOTO 1 


XT | 990 
3250 DATA 1,22,0,4,1,14,1,13,5,1,0,2.4,1,1,2,5,1,0,1,4, 3GF 
266 | DORE RTL ETUDE AT IS LS RO LR ET 
,7,1,0,18,2,1,1,13,1,7,11,1,0,18,1,14,1,6,5,1,0,16,-13, 
O2 LT 0 42011, 1314,551,18,14,5,0,13,28,152 
,14,5,1,14 
3260 DATA 1,4,3,1,0,13,4,1,5,1,0,8.4,1,1,2,5,1,8,1,9,1, EC 
LA | 4,1,1,5,1,5,3,1,0,23,1,1,5,1,0,4,4,1,1,4,1,6,0,30,4,1,1 
15,10,1,1,6,0,34,1,5,5,1,0,25,2,1,3,1,0,7.1,5,0,20,1 
dE LA 7 
3270 DATA 4,1,1,3,5,1,0,20,14,1,0,3,1,4,31,2412,3,1 DAC 
FT | ,0,1,2,1,0,23,17,1,14,4,18,1,1,11,0,6,14,2,0,7,14,1,0,5 
AH | ,2,1,1,18,0,6,14,2,0,7.14,1.0,5,1,19,0,6,14,5,0,2,17,1, 
PAT | 14,3,18,1,0,2,2,1,1,19,1,40 
RK | 3280‘ ORHRRRRRRRHERE VE 
GF | 3290 ‘ # TABLEAU 5 # :Y6 
ZIOÛ HN Hal 
YO | 3310 RESTORE 3330 :MODE 1:CLG:PAPER O: INK 0,22:INK 3,2: 60 


IN 1,6:INK 2,0:GRAPHICS PAPER O:GOSUB 26:50 







st a 
ge 


an: ot 


per at 


Es) 


7", 


3320 Y=185:x=ls xxx yy=ysH= {O0 U=TT5: 
qoû 


UA=u:UB=255: 6070 1 ? 
3530 DATA 1,40,1,12,0,15,4,1,1,2,5,1,0,7,1,2,1,12,6,16, 
2,1,5,1,0,8,1,2,1,42,2,1,0,25,1,2,1513,3130: 93: 140,2, 
-12,1,-11,1,-10,1,0,13,1,2,1,14,13,1,0,4,1,140,3,-9,1,- 
8,1,0,8,12,1,0,4,4,1,1,1 

3340 DATA 1,14,11,1,0,4,1,1,0,2,14,3,0,3,14,2,0,3,10,1, 
0,5,1,1,1,15,0,4,1,1,0,1,17,1,14,3,18,1,0,1,17,1,14,2,1 
8,1,2,1,1,1,7,1,0,4,12,1,1,1,0,4,4,1,1,10,0,4,6,1,1,13, 
9,1,0,4,10,1,1,1 


4,12,1,1,2,0,9,23,4,0,5,1,1,11,1,0,5,1,10,5,1,0,5,10,1, 


FA 


GE 


RD 


XA 


3JK 







asrireidrirsrmenririssrseisas 


-. à de 4 4 
fehsidoirs 


mA 
"1 















nine on 

# 3, 1,4 
5,9,23,2,0.4,8, 80 TEL TSI, 5,0 ET LOARRHÉRÉRERRELE FE 
Bi, Fa B.0,10,1,10.0415,1,18,1.40 ‘#4 TÉBLEOL 37 4 “ 
HÉRRERAAARÉRS UOARARÉÉEESEÉSS Des 


+ TRELEAU & +# 
UORRÉÉAREREREEE 





HATD OU ORARRSRRÉNENNE 
3445 ‘ + TABLEAU 7 # 
res 


TAEÛ OHhHHRRENAENEE 
3465 CLG:MODE !:FAPER O:RESTORE 2490: [NE 


6 


Hi se, 
ss 








JL 
és m1 





NE 2, LI2INE C6: GRAPHICS FAFER Ci GOSUR 2635 
} SYMEOL 215,224, ve 5.600.227 EA 








3480 xji=4bli jistüinvijisijit sji=i40iV=lBüi kel runme vveyt *OA 
HS LS: DeSé 0: DASU: UR=440: T=tüdi ac=45Gi Cats be=C:G0TG 157 RENNES 





û 






































1430 DATA sde duleG24,) ES ao DATA 1,11,11, DEA 25150 EE 
Bill z RARE F20,4,21:1,2,5 sels lsSs 
astral 0e Û este A PPATE 
3500 DATÉ 1,2,0,3.23,22,0, 19, Hz ue . VA | 3750 DATA 1,5,0,5,8,1.1,4,5.1.0,1,5,1,5 LS UC 
8.1,1,3,1,2,0,3,73,22,5,4,1, 1,5. 1,9,4,8,.1.1,2,i4,7,5,233 12 12351:4,9.0 sa. DAT EE PS PL EE Pie ELU = EE 
1.1, 15, L.0,4,17,1,142,0,7141, 1.11,1,0,4,10,1,1,2 3.1,0,5,25,1 
ÿ D 3,5,27,25,0.4,1,3,0,4, A PRIE COR 4,i « NH | 3700 DATA 1,9.0,27.10, 1,113 1, 04,23, 1, 4,5,0.25,2,1,1 ME 
0,4,1.2,0,4,1,8,1,3,11,1,0,33,1,3,1,4,5, 1,2 .b,0,4,2.1,1,9,0,22,2,1,4,17,1.4û 
3 ROLE ZTTÛ CC ORRARAREIERAAER CE 
14,2,û,16. sit1,0,8,14,7 SVT | 3780 ‘ # TABLEAU 19 * :1À 
Obs 14, 4,5 on URL. Ouse2sleli Betas 3.1.0, 1.17. 3790 ‘O#Hk#HEHEEERRS FE 
1.14,4,18,1,0,3,17,1,14,8,18,1,0,3.10,1,1,4,11,1,0,2,2, 3963 CLG:MOLE 1:FAPER GiREST qRE Ace 
1,1,4,1,46,1,40 NE 2,13 INE OC: GRAPHICS PAPER à 
2530 MOVE 15,10:FILL 2 »FD | 3810 VElbiuslinsxevysviHetéGit=diéti E=TSé:Te£be: F4 
350‘ OHRREHRENNEEE FYE | ac=196:C=64i6c=C:60T0 195û 
ES # TÉELEAU 8 # DVE | IGN ORAN 2YF 
TE6 CU ARRRRRHEEER 36 | 3630 ‘ # TABLEAU 11 # :YG 
3570 CLG:NODE L:PAPER O:RESTORE 25905 INK ZONE 1,262 HN | 3840 ‘ éaketentitnt | 214 
NE 247:INE 0,13: GRAPHICS PAPER d:G0SUB 2 283 2855 CLG: MODE 1:FAPER GRES TORE 58 
ser CN RE H=260:U=41é: UASUIUR=T 36: T=téés PA | E ZQS:INE O.19:GRAPHICS FAFER Ô 
ac=i96:C=b4:bc=C:GGTO 1990 | 3860 1j1=370: ji=tBbivjisjissji=z EV 


3590 DATA 1,40,1,4,5,1,0,3,41,1,2,5,1,0,25,6,1: 1,2. 
M 17 7 1 


,25 cl | H-500:T=190:ac=306:c217é:0c2c: 607 
PLUS E,1,2,1,3,01,0,841,2,1,3,24,0.19:2,1.1,2 


ü 
3676 DATA 1,49,1,40,1,27,14, RARE 
Fi 





PP POS UD ELIE PE D DEA GE OIL 41.1, 3:0,4,6,1,1,8,0,17,1:3,0, }, 
J£üG DATA PANNE RENTREE #YC Dan 
iti2iie,0.6,6,1,1,6,7.1,6,4.6,1,1,1,0,14,10,1,1,5, 3800 DATA 0,5,4,1,1,5,9,1,9,18,1,3,0,7,1,1,3,1,0,4,1,5, 9H 
ÿ.6.8:1,1,6,9,1,0,4,8,1,1,1 LL AS Dee 1,331,41,5,0,4,1,8,15,1.0,16.6, 
3610 DATA ü,10, AS, BETA 0 7,1.6 Re NUE: EU Lit 0 A0 

.à 


1,8,9,1,0,8,12,1,1,6,0,5,23, 2:13,1,0,9, 147, 14,250, 7, 10, 3890 DATA 1,2,0, 


l, 
.6,1,1,4,11,1,0,1 ; séqée 
L PA A M 3,8,1,1,2.14,2,0.11,17,1.14,1.18,1,0,8,1.9,1,2,11,1.0.4 
3620 DATA 11,1,0,9,1,7.14,2,0,7,14,2,1,4,9,1,0,5,25,2,1 3VJ 11810,9,17,1, 14, 5 18,1,0,5,1,9 
11:0,9,6,1,1,8,14,11,1,3,7,1,0:5,2,1,1,2 0,4,1,5,0,8,17,1,14,5,18,1,0,4,4,1,1, DAF 














en 


LA Co 


Ds 


HÉÉÉREÉEERERESÉ 
# TABLEAU 12 « 
TOSÛ CO ORÉRPÉRIHERRENRE 


F56û FeRTODE. L'PAPER & 











ATA 1.22,5,1.0,7.1,26,5,1.0,17,0,44,1,1,13,13.2. M 
,5.6,1,1,12,11,1.0,17,1,4,0,5,8,4,1.13,2,1.14,4.0 
RE 
A !. 1,1.17,8,1,0,9.10,1,1,4,1,2.13, 2T 
SAR HU NIORT, 





bete 
sisèsus 


4G00 DATA 1,2,7.1,0,4,1,8,5,1,0,4,2,1,1,8,5,1,0.4,2,1, 
6.1,29,104,48,7, 1058 LATE, 1.0.7. 
CARE LAS Et LENS ELA LRILE 


i,i.é 


4010 DATA 1.2,0.24,14,4,0,3,8,1,1,8,1,7,0,8.14,2,9,15,1 2GE 
4,6,0,3,4 HET I US 14, GITE EU 1.5, 1.1, 


9,1,0,5,14,4,0,4,-14,5,0,4,14,8,0,3,4,1,1.4 

4020 DATA 1.1,0,5,17,1,14,4,18,1.0,3,-14,5,0,8,17.1.14, DO 

g18,10,3,1,4,1,1.13,1,0,5,17,1.14,8,18,1,0,23-14.5,0. 
2,17,1,14,10,18,1.0.2,6,1,1,3 

1020 DATA : 

1:40 


= 17 


tit 1,0,2,17,1,14,28, 18. 1,001,8.1.5,3,1,40 %ûk 


ACC TORRES FYÀ 
4080 ‘ # TABLEAU 13 * ŸE 
AOÛ HARAAERPENHHNRE YC 


4070 CLG:MODE 1:PAPER Cu INE GG INE 1.22 NE 
IGRAPHICS PAFER © :RESTORE TISG:GOSUE 2635 
aGg0 Y=2bû:H=280: 250: VASU:UR= {TT e use TB azur vY=Yia PC 
c=b40: C=480: bc=C: GOT 1990 

AOOÛ OHRARÉEEERHENT 2VF 
4100 ‘ # TABLEAU 14 + FX4 
LAS HARMAN 

126 CLG:MODE Î:INE 0,22: INK 
CS PAPER O:RESTORE 30Bûef 
430 Y=Dirx=iés aux vvyavi H=150:U= 
1990 

AAG © HAAREEHERAAEES 
450 ‘ »* TABLEAU 15 # 
AOÛ ‘ HÉRERERENEENE à 
4176 TABL=IS:MODE i:INE CG: INK 1,24: INF 2, 1S:INE 5,6:F CG 
AFER 3:GRAPHICS FAFER Ô 
418û ac=420ibc=-24: X=294: Ÿ=200rc=-24: t=20G:h=18Zsu=20Gr MU 
ua=uiub=-{lé:yv=y:G0TO 2926 
4100 HARRIS :ÿ5 
42060 ‘ # RAVITAILLEMENT # | 
DO RME 





FRS INE O.û FE 



















INE 


4230 EG 









re 





GUND L40b-fuet LE Hs 


280 + MISSION ECHOU EE + 
AEGE RARE HERO 
4300 WINDOW #3. 1 40.6, 1S:ÉAPER EI, 0 

4210 MODE 12INE OO: INK 1.24: INE 2. 
N J:LOCÈTE 4, PRINT "otre scûre : 
'HLOCATE Hi: PRINT “mais ee ce es. 
ssion":LOCATE Z, 12: PRINT la echoue"::FEN GP 
s vous serez fusiiletitt 


a 

m+ 

Hi 
ra 


4220 PEN ZiCLEAR INPUT: LOCATE 3,4: FRINT "Donnez vatre al 
noms pour l'acte de':LOCATE 3,15: INPUT 'nort (8 iettre a 


ax. )"1non$ 

ASG IF sci=scoreiN8) THEN ne=ncind=ncinc=nbinb=nainasf 5 
Fiscore(nFi=sceno$inFi=nomé ELSE IF sc:=cccreiNE) AND s 
céscore(NAi THEN ne=ndind=ncinc=nbinb=nFiscoreinFi2scin 
oinFinont 

A4 IF scr=scoreiNC} AND sccscoreiEi T 





a É  s 2 s. 
HEN ne=nging=nc ‘fl 


sncene score (nfisscino$ inf) =nomé ELSE 1F sc:=scoreiNl) 
AND sciscoreiNC) THEN ne=ndind=nFiscoreinFi=scinotinfiz 


nor 

#55 IF scr=scoreiNE: AND scescoreiNGt THEN neznFiscore ‘EL 
=scinc$ (nFi=nom$ 

S3éû GOTO séû 

ATTO CC RERÉRRERAMMEMENRER Y 

4580 ‘ + MISSION REUSSIE# Ÿ 

CRC: SE; xY 

A400 FOR g=2200 TO 100 STEP —10: SOUND Lara ion. TE 

G:INE 1,a/100:INE 0,q/150:INE 3,a/8ü: :NEXT 

4410 MODE 1:INE 1,6:INE 2,34:INE 3,7: PAPER GiPEN Li LOCA YT 

TE 19,7:PRINT FELICITATION IF LOCATE 10, 4:PRINT "EGNU 

5::5Cs"# 10":SC25C#1 0 

4420 PEN Z:LOCATE S,i1:PRINT “Votre mission est un suce EF 

es.De pius":LOCATE 3:12:FRINT ‘vous avez un scor des: 

PEN 3: PRINT sci: PEN Z:FRINT "points" 

4426 CLEAR INPUT: FEN Z:LOCATE 5,14: INPUT‘ Quel est votre ‘HN 

nom'inom$:PEN 1: LOCATE 16, = PRINT nom$s"l" 

4445 PEN Z:LOCATE 3.18: PRINT ‘Le gouvernement est fier -CH 

de vous. ":CALL KERO6:60GTO ne 

BASQUE 

4465 ‘ * PLUS DE FUEL +* 











BATO ORRERARRERERENERE :YH 
2480 FOR Y=Y TO Y-Z00 STEP -ZiX=X+0. Si MOVE X. Ye PRINT 44 UM 
(Le: MOVE X+18,Y-15:FEINT RO): 





8490 IF #92 AND (TESTIx-i,y-i4)ésû OR TEST(x+29,y-38) £à VE 
G OR TESTIu+48,y-14)€206 OR TEST(x-1,y-12)€50 OR TEST(x+ 
40,y-32)€30 OR TEST (x+25,v+2)€30) THEN COSUB 2300: #=ux: 
y=yy:6070 1960 


4500 el=el+1:S0UND i,200+ei,6, IG:NEXT :F4@ 





ETAT 


REGISTRE permet de 
visualiser les résultats de 
diverses manipulations dans 
un registre double ou simple 
et effectuées par un 
programme en langage 
machine. 





@Yves DRIESBACH 


10 REM HERMANN 
RHONE 

20 REM * adressage direct de doubl :TA 
es registres * 


30 REM # cpc 464,664,6128 ?UU 
* 

AG REM # DRIESEACH Yves 1988 :Y0 
L 


SO REM AMENER CL] 
RER 

60 SYMBOL AFTER 92 MZ 
70 SYMBOL 92,24,36,24,24,74,24,24 1H 


80 SYMEOL 94,64,32,120, 12, 124,264, 1 EN 


18,9 

90 SYMBOL 123,24, 34,40, 102,126,96,6 ?CJ 
û 

100 SYMBOL 125.16,22,56, 108. 124,96, ?EQ 
8ü,0 

110 SYMBOL 143,16,8, 102, 102, 102, 102 >FD 
,62,0 

120 SYMEOL 96,16,8,56, 108, 124,94. 60 EM 
130 KEY DEF 24,1,94,163:KEY DEF 17, DDC 


1,91,123KEV DEF 19,1,93,125:KEY DE 
F 22,1,96,92 
140 MODE 2:INK 0,13: INK 1.0: BORDER 


REGISTRE 


e programme est entièrement 
écrit en BASIC et est donc 
compatible avec les trois 


Es 


types de CPC soit 464, 664 et "um 


6128. Toutes les explications sont con- Es = = 


tenues dans le programme et son utilisa- 
tion est très aisée puisqu'il suffit de sui- 
vre les instructions. Au début du pe 
gramme, un menu vous propose l’adres- 
sage d’un double registre ou la manipu- 
lation d’un registre simple. 
L'adressage d’un double registre permet 
de voir quel sera son contenu après y 
avoir placé une valeur supérieure à 255 
bases ou après avoir modifier l’un des 
deux registres formant le double regis- 
tre, toujours dans les trois bases déci, 
hexa ou binaire. 

La manipulation d'un registre 8 bits per- 
met de voir son contenu suite à une ins- 
truction en langage machine tel que par 
exemple : SET, RES RL, SLA... et ce 
avec toutes les explications nécessaires 
et la comparaison entre la valeur avant 
et après la manipulation. 


© 13:DEFSTR C:C=CHRS (24) :WINDOWK1, 1.8 
0,1, 3:PAPER#1, L:PEN#1. 0: CLSH1 :MINDO 
WHO, 1,80,5,25 

150 CLS:PRINTH1:PRINTHI, TAB (28) :°T 
AITEMENT DES REGISTRES": PRINT, TAB 
(27) : STRINGS (26, "#") 

152 PLOT 50,256: DRAN 600,256: DRAM 6 
00,80: DRAN 50,80: DRAM 9,29: 4251: 
2257: FOR I=1 TO 10:PLOT X,V:DRAN X+ 
550, Y: DRAM X4550, V-176: X=X+1:V=yal: 
NEXT I 

153 FLOT 500,48: DRAW 520.58:DRAM 63 
9,58:DRAM 625,48: DRAN 639,58: DRAN 6 
39,11:DRAW 825,1 

56 MINDOW#3, 63, 78, 23, 25: PAPERKS. 1: 
PEN#S, 0: CLSW3:PRINTHS 
HRS(164)+" DRIESBACH.Y " 

160 LOCATE 14,8:PRINT"ADRESSAGE DIR 
ECT D'UN DOUBLE REGISTRE ---} 1":LO 
CATE 14,10:PRINT"MANIPULATION DE BI 
T,DECALAGE, ROTATION -—-} 2":LOCATE 

40,1S:PRINT"VOTRE CHOIX 7":CALL RRB 
18 

170 IF (INÉEV{O4)=0 OR INKEY(17)=0) >0E 
THEN G0TO 200 

180 IF CINÉEY(6S)=0 OR INMEY(14)=0) QU 


[ro 


SD 
Ro #F 


3YM 





#NG 


#HÈ 





MZ 





YF @ THEN G0TD 870 








CARRY après OP: 


nu 
pteur dans bo 


menu | 
pe contenus de registres 


= Choix du me ucle FOR/NEXT 


= Variable com 


; - s istre 
double regl 
etre formant le 
ue registre 


Le LEE 


Pine 


EOTO 16û : 
0 REM ##4## explications ####4 2 VR 
210 CLSHI:PRINT#I, TAR (21 : “ADRESSAG : 
E DIRECT DE DOUBLES REGISTRES" :FRIN 
TH, TAB(20) :STRINGS (39,4) 
220 CLS:PRINT"IL faut savoir que io : 
rsque vous vouiei adresser un doubl 
e registre. il faut toujours d° 
abord rentrer l'octet faible puis | 
‘octet fort." 
230 PRINT'i] serait pius simple de 
dire qu'il faut d'abord rentrer la 
valeur de "ici" L "ils" avant celle 
de "iCis" H iCi" (dans je cas de € 
e registre)." 
240 PRINT: FPRINT'EXEMFLE: Vous voule : 
2 utiliser l'instruction [ CALL &BE 
75 ] qui est l'iquivalent du [ LOCA 
TE J'en BASIC, Il faudra donc que [ 
H ] contienne la colonne et LL 1 
la ligne auquels le curseur devra 
{tre placi." 
250 PRINT 
266 PRINT" Si vous voulez un LOC 
ÊTE 15,24 ,en assembieur, la lagiqu 
e voudrait que vous icriviez [ LD H 
L,SOALE 1 (ot LOA=IC et 18-24) mai 





£UU 


C1 
1 


ÈNE 
BE 










380 FRINT Ci" LD HL,&IBGà "its" 
une fois assembiie vous done 
" ZIONIB “iC 
266 PEINT" of ! 
DHL, "ici" EG 
18 hapat = £4 ju 


MES 


106 PRINT'Ce programme vous permett 3L 


a d'adresser correctement vos doub 
les registres où de transcrire la v 
aleur qu'iis contiennent en dicimal 

, binaire et hexadicimal, 3i vous 
arpuvez simplement sur £ENTER: sans 

rentrer de valeur * la question :" 


315 PRINT'IVALEUR DE... il vous ss; 


uffira de silectionner l'un des reg 
istres par la touchecorressondante 
du paver numirique.ce qui vous Per 
ettra d'adresser chacun des deux 
registres siparement sans aitirer | 
e contenu de l'autre." 

320 LOCATE 50,21: FRINT Ci° 
une touche S.V.F ":C:CALL &BEIS 


330 REM ##4 ADRESSAGE DE DOUBLE REG : 


ISTRE ### 
Jéû CLS 

370 WINDOWY2, 30,80, 18. 
PEN#2, 1: CLSHZ:WINDOWKT, 1.46, 23, 25:P 
AFERYS, Os PENS, 1: CLSAS 
380 CLS: INPUT "DONNEZ 
E DOUBLE REGISTRE (eu: AF,RC.DE,HL, 
IX ou IVi ";REGS 
390 REGS=-UFPERS (REGS) : IF REG 
AND REGY< "EC" AND REGS:2 "DE" AND 


RKTT- 


REB#< s"HL" AND REGS<S5 "IX" AND REGSS 
"IV" THEN 380 
100 RES (1) =LEFTS (REGS. 1} 2RES (2) =RIG 


HTSIREGS, 1) 


4id CLS:PRINT'UALEUR DE "50" “REG Ki 


#FL 


gs" "sC:PRINT" EN DECI.HEXA (à...) 
ou BIN. (4%,.,..,,,,..,.,,,) “atiN 

FUT R$ 

429 LOCATE i.2:PRINT SFACES (80) 

456 IF VALIR#)=0 THEN 476 

44 IF VAL (R$) 695. 

$(7):LOCATE 1,3:FRINT'un double reg 
istre ne peut contenir de valeur su 
pirieure * 65525 où &FFFF':FOR i=i 
TO SOO00:NEXT i:LOCATE 1,3:FRINT SFA 
CE$(70):LOCATE 1,2:G0T0 410 

450 IF LEFT$(R$,2)="8X" OR LEFTS (R$ : 


qui 


appuyez ;XE 


23:PAPERKE. Gi à 


UN NOM 4 VÜTR : 


AP" > 


33 THEN FRINT CHR à 


ME 


TL 
m1 


FM 


?RU 








IC 41; HO LEvVA 
{Si):Cs" HEXA ‘à 





C 
Z.B:FRINT TÉE :TÙ 
sC:" À FOUR VAL 

(37) sUSING'HHH SRI: : FRIN 

HHPbIMS BIN$iR 1.6) 

520 LOCATE 2,10: PRINT TAB(SHaCe" fe GUH 
RESEZH eo" MiCi À FOUR V JALEUR :":TAE 
(37) USIT NB" HAE" F2: :PRIN NT TAH(SI):" 
R'AHEXS (R2, 2) ,BI NE {RZ,8i 
deg REM #44 MENL #43 2MG 
530 CLS#D:PRINT#S, "fi - modifie :6Y 
PCs" Cire$(lii" MeCePRINTHI "EE - 
oditier "Ci" 'sre$i2ii" MiC:PRINTA 
2,"45 - renommer ie registre ":PRINT 
#2,"#4 - imprimer les donnies":FRIN 
T42,"45 - retourner au menu" 
dû FLOT 388,132:DRûN 600, 122: DRAN LE 
büG, 40: DRAW 388, 40: DRAY 388,132 
S9û CALL SEBIB MF 
560 ÏF INÉEY(13)=0 THEN RS=RES (IG JE 
OTO 670 
E70 IF INÉEY(14)=0 THEN RÉSRES(Z):E :JH 
OTG &2û 
580 IF INÉEY(S)=0 THEN GOTO 340 EYN 
590 IF INÉEY{20)=0 THEN-GOSUR 780:6 FX 
OTG 530 
800 IF INÉEY(121=0 THEN GOTO 145  :Y4 
&iû GOTO 5sû ED 
615 REM ### NOUVELLE VALEUR ##4 YU 
620 RS=UPFERS (R$) | MM 
630 PRINT#3, "nouvelle valeur de “:C 3Y4 


DURE" L' CE PRINTHI:PRINTAE | 
253, RFF OÙ aXIL1I1IL maxil is INF 
UT#I,RR$ 

640 RR$=UPPERS (RR$! 


65û IF LEFTS{RRS,2) 3"&X" AND LENIR DL 


R$)S THEN CLS#3:G0T0 850 
6bû RM=VAL (RR#) : 
T CHR$(7):CLS#3:G60T0 65û 

670 IF R$=RES (1) THEN RISRM ELSE R2 
FM 





IF RM:255 THEN PRIN : 


?E6 


et 4h44 
710 LOCATE !,4:FRIR 
720 FLOT 0,295: DRAb 85 
5.271: DRAN 0,271: DRAU 
3e 



















730 LOCATE 3, 4:PRINT "DEC: CERTA GUH 
28): "HE: LAHENSIRR, is TRISTE 

N: "+BINSERR. 16) 

745 RETURN 

780 ReRR:CLE#S:GCTO 466 

780 FEM +##xt impression de la page 44 
ecran ##### 

770 FRINTHO: PRINTAS: FR INTES. "VALEUR GRT 
DE ":REGS 

760 FRINTHG:GOSUE Géc #8 
790 PRINT#G," DEC: 2R #4 


Xe L'HHEXSIRI. 4): TAB(S9): 
N$IRI. 16) 

800 GOSUR 8ëû 

810 PRINTHO:PRINTAG, TAB (6): " 
TARIS III" HEXA MeTAR(ETj:" BIN 
620 FRINTRB:G0SUR 8éG: FRINTRE, TA 








PiREY(1):" CONTIENT LA VALEUR 
B(37)3RL2 TABST I: PEUAHENSIRL ZE, 
$(Ri.68) 
83G GOSUE 84i 
je PRINTHE, TAB(GI: RES ( 

T LA VALEUR :":TARIS 
Ra AHEXS (R2 21 BINS 2. 


TÂ 
IN 


Ge 
B: 
HE 
mi 

: 

= 
5 


CUT 
ils 







Rs TEST ie" 
£a HE JS 


6) 


8SÙ GOSUE Bi: PRINT#S:FRINTAG:RETUR 36h 


N 

80 FOR I=1 TO 73:FRINTHO, *-"; 
I: PRINTHS." ": RETURN 

870 REM 4444 set.res,rl.rr 


BeG CLS:CLS#1 


890 FRINTH#L:PRINT#I, TAB(13) : "INSTEU à 


CTIONS DE DECALAGE, ROTATION, MANIFUL 
ATION DE BITS":FRINT#I,TAB(IZI:GTRI 
NG$ 156, "#") 

900 PRINT'II est toujours intiressa 
nt de connaïtre le risuitat d'une i 
nstruction tel que: ":PRINT:PRINT:C: 
"GET - RES - KL ou RLA - KR ou RAA 
- RLE ou RLEA - RAC ou RRCA - GRL - 
SRA - SLA "ic 

910 PRINT'Four les instructions de 
rotation. je fonctionnement et ie r 
isultat }tant pareiltant pour les r 
egistres 8 bits que pour l'accumula 
teur (EX: RAR = FRA) nous ne les a 
prelierons donc que RL,RR,RLE ou RAR 
C 


920 LOCATE 1,19:PRINT "X = registre 





ner nu 0 
DEL Ë 


LE 
ë À 
SG * 


CONTIEN + 


#84 DEA 





LHEXT 3CJ 


>DF 


3XM 





ARCD,E,H,L ou Bien le contenu d 
‘une adresse point; par (HLi. {l 
Xtd'olacement} où {I*+diplacementi" 
:LOCATE 1,89 


95G PRINT:FRINT'entrez la valeur co 34] 


ee dans Je resistre ou l'adres 

se "sCs" X "IC: PRINT TAR(ID)s té 355 
CF ne wittittl maxi "st INPUT 

Rs 

GG R$=UPPERS (RS) 

990 IF LEFTÉ(RS, 2j 

33 THEN GCTO 990 


96ù IF LEFTHIRS.Ti="RXT AND LENCRSS 


#8 THEN GOTO 995 
970 RRSVAL(R#I:IF RAS 
CHR$ (7 :G0TO 750 

Sa GOTO 1060 


ce 
:255 


990 PRINT CHR$(13):CHR$ (11): SPACES( 


70): CHR$ (1 

0 93û 

1000 FRINT:FRINT "Le bi 

ment "ici" C ":Ci" du registre FLAG 
BStil: ES MC Papa que MCE 

Q "sCs" ss INPUT CARS 

1610 IF VALICARS) <0 OR VAL (CARE) 1 
THEN PRINT CHR$(7): PRINT CHR#{13):C 
HAS (11) : SPACES (70) : CHRS (13); CHR# (11 
)::6070 1000 

115 REM «4e AFFICHAGE #44 

1020 CLS 


3): CHARS 11): CHRS (LL 3 2 GÛT 


“RX" AND LENIRS 37 


+ de d'passe :C 


IT 


THEN PRINT WF 


3TC 


1630 PRINT'CONTENU DU REGISTRE OÙ D HT 


E L'ADRESSE "iCs" X "ic 
1040 LOCATE 1,3:FRINT Ci" 
ration ";C:LOCATE 55, 3:FRINT'DEC : 
MaCiSTRSIRR) I" MC" HEX s "il 
BUS HEXSIRA,2)5" "Ci LOCATE 1,7:FRI 
NT Ci" apr's opiration ":C:LOCATE 5 
3,7: PRINT"DEC : M"sC:STRSIRRIE" MiCi 
M HEX : "sCi" WU HEXS (AR. 2)" 
£ 


1080 FLOT 1,510:DRAM 639,310: DRAM 6 36X 


39,218: DRAM 1,218: DRAM 1,310 
1060 RS=BINS (RR, 8) :BIT#="76543210" 
1070 LOCATE 24,3:PRINT CAR$:LOCATE 
40,2:FRINT RS:LOCATE 24,7: PRINT CAR 
SALOCATE 40,7:PRINT RS 
1080 LOCATE 2,5:PRINT "CARRY FLAG - 
"a: TAR(23):Ci" C "Ci TAB(40): HITS: 
TAB(&5):"€-—- No du BIT" 
1090 PLOT 180,306: DRAM 196, 306: DRAM 
196,286:DRAW 180,286: DRAM 180, 306: 
PLOT 308,306: DRAW 380,306: DRAM 380, 
286: DRAM 308, 286: DRAW 308, 306: PLOT 
188,283: DRAU 188,275: X=316: Y=283: FO 
R 1=1 TO 8:PLOT X,V:DRAW X,Y-8:X=X+ 
B:NEXT I:PLOT 188,254: DRAN 188,246: 


avant opi NE 


?FG 


RL 





CE 


1110 RLSRE 
1115 REM ### MENU FONCTIONS #44 





1130 LOCATE 1,14: PRINT'MEND FONCTIO 7 


NS 2": PRINT 


1130 RESTORE 1420: N=û: X=2:GOGUR 16 


Û 

1140 LOCATE 1.14 

1150 ON VA GGTO 1436. 1506, 197 
1680, 1730, 1780, 1830, 188ù 
1165 FLOT 1,146: DRAW 
GO, 124: ORAN 1,124: DRAN 1, 14e 

1175 FOR Isi TO 659 STEP AG:PLOT I. 
120: DRAN +35, 20: NEXT I 

1160 N=G:WHILE F$ (NP NENe! 
1190 READ F$(Ni:l HEND:NN=N- i 


1206 WINDON#S. 38,80, 17, 17: PAPERS L 5h 


: PENES. Os CLS#T: PRINTAS, 
HR$ (242): CHR$ (243) 
FY /MENU=M /IME=I" 
1215 FAFER O:PEN ! 
122% FOR I=i TO NN 


>CHOT=":C 
/VALIDATION=CO 


230 LOCATE X. 1: PRINT TABIU:F#(I) 


stX=i+4 

1245 NEXT 

250 VA=1:X=2:X2=4 

1260 HINDOWK2, X,X2,17,17 


ü, 1825 à 


200.146: DR64 3 





1270 PAPERH2, 1:PENH2, Ci: CLSH2: PRINT NH 


2,F$ (VA) : 

1280 CALL SEBIE 

1290 IF INKEV{38)=0 THEN GOTO 140 
1300 IF INKEY(3S 
:60T0 1240 


1315 IF INÉEY{I)=0 THEN PAPER#2,O:F :Y 


EN#2, L:CLS#2: PRINTHZ,F$ (VA) : : VE=VÈ+ 
fi X=X2+2: X2=X+2: IF La THEN Vési: 
X=2:X2=4:G0T0 1260 128û 

1320 IF INÉEY(8j=0 ce PAPER#Z, 0: F 
EN#2, 1:CLS#2: PRINTH2,F$ (VA) : : VA=VA- 
ÎiX=X-4:X2=X2-4:1F VA=O THEN VA=9:X 
=34:{2=37:60T0 1260 ELSE GOTO .1260 

1330 IF INÉEY(9j=0 THEN RETURN 

1540 GOTG 1280 


SE 


1350 REM ### IMPRESSION DES DONNEES : 


#44 


1560 PRINT#8, "Contenu du registre X à 


avant et apres l'operation ‘‘ 
(VAIMP) 5" "4 

1S6t IF VAIMP:3 THEN PRINT#8,"X °° 
ELSE PRINT#O, Hs", 


"3F$ 


12 


}=5 THEN GOSUR 1360 : 


" 3CQ 
















1368 FRINTHS:PRINTAE: RIS=RIGHTS (STR :ëY 
$IRII.3)21F LENIRISI<T THEN Rlt=" 
is 
1370 RRISERIGHTÉISTRE (RARES The IE LE EN 
{3 THEN FRIS=" " 
à PRINTHS.TAE(21; IL 
}4'EIT No 76545710" 
Î36S IF CARIMPIS="" THEN CARIMPIS=C JU 
BRIMPS 
1360 GOSUE B60:PRINT#E, avant crera a A 
Hi de TRE(24):CARIMP#: TÉB(SAI"E 
Fe BINSIRI. Bi: TAR(SS) : "DEC : vR 
He HEX 3 SU: MHEXSIRT, 25: GOSUÛE 86 
ñ 
1400 FRINTA4G: GOSUE 860: PRINTHS, ‘apr RE 
es operation :":TAR(24) :CARIMPIS: TA 
BA): RIN + PHBINSERRT Gi: TARIEI: 
rs MeRRIS" HE : RHEXSIRRI, 
2):60SÛB 86: FRINTH#E: FRINTHC 
1410 RETURN 3EK 
1426 DATA RES .SET RL .RLE RE UN 
REC SLA .SAL ,SRA ,# 
1425 REM 44e EFFET DES FONCTIONS #4 Cv 
4 
1435 ‘RES FA 
144] PRINT:FRINT Ci REG ic :kE 


1456 FRINT'met le bit design: * 1°} :H8 


at [G] ou }ffacement. RS 
n s'icrits "sCs" RES B.op "sC:"b } 
ant le No du bit {Gi a 7) et op l'on 
irande pouvant itre un registre où 
une adresse pointie par HL, IK+di 
placement ou IŸ+diplacement 


1460 FRINT:FRINT'entrez le No du bi Hé 


ziro dans ie r 
ci-dessus :" 


& (9 a 7) * mettre * 
egistre "ici" X "iCit 


1470 LOCATE 1,21: INPUT" bit No : ‘18 FM 
$ 
ae B=VAL(E$):1F Hé OR E:7 THEN F :CA 
RINT CHR$(7):LOCATE 10,21: PRINT" 
"sLOCATE 1,31:G0T0 1470 

1490 HIT=6-B:MIDS (RAS, HIT. 12 OM RT RE 
$='LX ARTS RRI=VAL IRIS) : GOT 1945 
1500 ‘ SET 3XJ 
S19 PRINT:PRINT Ci SET ": F KE 
1520 PRINT'met le bit Fr # l'E 
tat (13. l'instruction s'icrit: ‘: 
C:" SET b,op "iCs"b tant le No du 
bit (© a 7} et op l'op}rande pouvan 
t {tre un registre où une adresse 
pointie par HL, IXtdiriacement ou 
IY+d'placement 
1530 PRINT:PRINT'entrez le No du bi GA 
t (0 a 7) * mettre * un dans le reg 
istre "C5" X "Ci" ci-dessus :" 

dis LOCATE 1,21: INPUT"bit No : "sb iFÉ 


$ | 

1530 E=VAL(H$):1F B<O OR B}7 THEN F 

RINT CHR$(7):LOCATE 10,21: PRINT" 
":LOCATE 1,21:6070 1546 

1560 RIT=8-B:MID$(R1$, BIT, 1)="{":RI 

$="LX"4+RISERRI=VAL (R1$) :GOTD 1940 

1570 ‘ RL 

1380 PRINT:PRINT Ci" RL "sc 

1590 PRINT'dicale tous les bits de 

l'octet point par (HL) ou (IX+dipl 

acement) ou {IY+d}placemen 

t) ou contenus dans le registre sp} 

cifi} d'un bit vers la gauche. le b 

it No-7 sera recopi} dans le Carry 

et la valeur d'origine du Carry ira 

dans" 

1600 PRINT" dans le bit No-0 de l'o 

ctet. L'instruction s'icrit "CS" R 

L'opirande ";C:FRINT:PRINT Ci" appu 

vez une touche "3C:CALL &EBBI8 

1610 CARIS=LEFTH(R1S, 1) :RI$=RIGHTS ( 

R1$,7)+CAR$:RIS= "EX "ARS: RRISVAL (RI 

$):G0T0 1940 

1620 ‘ RLE 

1630 FRINT:PRINT Ci RLC "ic 

1640 PRINT'dicale tous les bits de 

l'octet point} par (HL) ou (IX+dipl 

acement) ou (IY+dipiacemen 

t) ou contenus dans le registre sp} 

cifi} d'un bit vers la gauche. le b 

it No-7 sera recopi} dans le Carry 

et dans le bit No-5 de l'octet. ": 


1690 PRINT "L'instruction s'écrit "5 


3C;" RLC opirande ";C 


1660 PRINT:PRINT Ci" appuyez une to 


uche ";C:CALL &EB1B 

1670 CARIS=LEFTS(R1S, 1) :RIS$=RIGHTS ( 
RAS, 7) +CARISI RSS MRXARISERRIEVAL (R 
1$):G0T0 1940 

1686 ‘ RAR 

1690 PRINT:PRINT Ci RR "SE 

1700 FRINT'dicale tous les bits de 
l'octet point: par (HL) ou (IX+dipl 
acement) ou (IY+d)placemen 
t) ou contenus dans le registre spe 

cifià d'un bit vers la droite. le b 
it No-Ü sera recopii dans le Carry 
et la valeur d'origine du Carry ira 
dans" 


1710 PRINT" dans le bit No-7 de l'o : 


ctet ":PRINT:FRINT Ci" appuyez un 
e touche ";C:CALL SBBIB 


1720 CARIS=RIGHTS(R1$, 1) :RI$=CARSR ? 


1$:RISELEFTS(R1$, 8) :R1$="BX"4RISERR 
1=VAL(R1$):GOTO 1946 
1750 ‘ RRC 


BE 


A 


RE 


YF 
4 
>DA 


db 


LF 


YE 
?XB 
1 


NM 


3YH 
#WV 
3DM 


?YD 





© 


1740 PRINT:PRINT Ci" RRC "iC 

1750 PRINT'dicale tous les bits de 
l'octet point} par (HL) ou (IXtdipl 
acement) ou (IY+diplacemen 
t) ou contenus dans je registre sp} 
cifià d'un bit vers la droite. ie b 
it No-0 sera recopi} dans le Carry 
et dans le bit No-7 de l'octet." 


1760 PRINT:PRINT Ci" appuyez une to :G 


uche ":C:CALL &EBIB 


1770 CARIS=RIGHTS(R1$, 1) :R1S=CAR1$+ : 


RIS:RISELEFTS (R1$,8) :RIS= "RL RIGER 
RI=VAL(R1$):60T0 1945 

1780 ‘ SLA 

1790 PRINT:FRINT C;" SLA "5 

1809 FRINT'dicale to's les bits de 

l'octet point} par :4' ou (IX+dipl 
acement) ou {IY+diplacemen 
t) ou contenus dans le registre sp} 
cifi} d'un bit vers la droite. le b 
it No-7 sera recopii dans le Carry 

et un.[0] sera mis dans le bit No- 


1816 PRINT:FRINT C:" appuvez une to 


uche ";C:CALL BEBIS 


1820 CAR1S=LEFTS(R1$, 1): R1$=RI$+"G" à 


1R1S=RIGHTS (R1S, 8): R1S="LX A RISERRÏ 
=VAL(R1$):G60T0 1940 

1830 ‘ SLR 

1846 FRINT:PRINT Ci" SRL "iC 

1850 PRINT'dicale tous les bits de 
l'octet point} par (HL) ou (IX+dipl 
acement) ou (IY+d}placemen 
&) ou contenus dans le registre sp} 
cifi} d'un bit vers la droite. le b 
it No-0 sera recopii dans le Carry 
et un [0] sera mis dans ie bit No-7 


1860 FRINT:PRiNT Ci" appuyez une to 


uche ";C:CALL SERIB 


:870 CAR1$=R!6HT$(R1$, 1) 2R1$="O"4RI > 


$IRISELEFTÉ(RIS, 8): R1S="BXUARISLERI 
=VAL(R1$):6070 1940 

1880 ‘ SKA 

1890 PRINT:PRINT Ci" SRA "iC 

1900 PRINT'di:ale tous les bits de 
l'octet point} par (HE) ou (IX+dipl 
acement) ou (IY+diplacemen 
ti ou contenus dans le registre sp} 
cifi} d'un bit vers la droite. le b 
it No-0 sera recopi} dans ie Carry 
et le bit No-7 reste inchang}." 
1910 REM AFFICHAGE NOUV. DONNEES 
1920 PRINT:PRINT Ci" anpuvez une to 
uche ";C:CALL &EBIB | 

1930 CAR1S=RIGHTS (R1$, 1): B$=LEFTÉ(R 


KE 


>XE 
T2 


CG) 
m 


ÿ50 
8 


F2 





1$,1):R1S=BS+RISIRISE=LEFTS (R1$,B):R 
1$="RX"+R1$: RRI=VAL (R1$) 

1940 LOCATE 24,3:PRINT CAR$:LOCATE 

40,3: PRINT BINS(RR,8):LOCATE 59,3:P 

RINT C:STR$(RR)5" "sC:LOCATE 73,3:F 

RINT Ci" &'SHEXS (RAR, 2)5" ":C:LOCATE 
284,7:PRINT CAR1$ 

1950 LOCATE 40,7:PRINT HIN$(RR1.8): MN 
LOCATE 59,/:PRINT CsSTR$ (AR) " "ic 
:LOCATE 73,7:PRINT Ci" L'aHEXS (FR, 
2)" SC 

1960 CARIMPS=CARS:RISRR: CARIMP1$=CA FT 
RIS:RRI=RR 1: vaimp=va 

1970 LOCATE i,12:PRINT CHR#(Z0):R$= VE 
STR$ (RR1) : RR=RR1 : CARS=CAR1 $:R1S$=BIN 

$(RR1,8):G0T0 1120 

1980 END 


EH 


*I5e 
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PROBLEMES 


Instituteur m'occupant des 
mathématiques dans deux 
classes de cours moyen, j'ai 
pu constater les difficultés 
des enfants à comprendre le 
données d'un problème 
(lecture) et à les utiliser 
pertinemment, avec le choix 
de l'unité correspondant. 


‘est pourquoi ce logiciel pro- 
pose aux enfants un grand 
choix de questions dont 
quelques-unes n’admettent 
aucune solution, développant l'esprit 
critique. 
En tout, on disposera d’un nombre con- 
sidérable de problèmes différents avec 
50 questions possibles. Seulement 10 de 
ces questions seront posées à chaque 
problème. 


1û LA 
26 ‘ INITIALISATIONS LE 
30 LC 
40 PARTIE=1:ESSAI=0: AIDE=0:FT5=0:0= NE 
0: XQ=0 

50 DIM YQ(15) >6B 
60 SPEED INE 26,1 >L7 
70 ON ERROR GOTO 90 NB 
80 GOTO 100 >RH 


90 CLS H4:PRINTH4:PRINTHA:PRINTHA," RU 
ERREUR !!!":F0R I=1 TO 

2000:NEXT:G60TD 510 

100 MODE 2 >HA 
119 SYMBOL AFTER 64 NE 
120 SYMBOL 125,96, 16,60, 102,126,96, DCE 
40 

130 SYMBOL 123,6,8,60,102,126,96,60 >BT 
140 SYMEOL 93,24, 36,120, 12,124,204, >DA 


Les adultes pourront également trouver 
un intérêt à ce logiciel éducatif (une fois 
n'est pas coutume |) en exerçant leur 
mémoire, grâce aux 3 niveaux de jeu. 
Un ne remerciement à Philippe 
Nguyen et son logiciel Calculatrice paru 
dans le CPC numéro 17. La calculatrice 
utilisée dans Problème est simplifiée au 
niveau des fonctions mais adaptée : on 
peut taper directement les chiffres sur le 
clavier, ou à défaut se déplacer avec les 
flèches de direction. Dans ce cas, la flè- 
che se déplace de case en case sans in- 
termédiaire. 

Le corps principal du logiciel Problèmes 
est compris entre les lignes 10 à 2000. 
La suite est constituée des données et des 

uestions. 

il est prévu de faire évoluer ce logiciel 
avec d'autres problèmes. 


CPCment vôtre. 





@Alain MANGINI 


11B 
150 SYMEBOL 64,96,16,120,12,124,204, :DG 
118 
160 SYMBOL 91,24,36,60,102, 102.102, CG 
6 
170 SYMEOL 163,0,0,0.0,0,24,24,352 ZM 
180 SYMEOL 247,255,1930,132,132,130, 2ML 


177,203,134 7 

190 FOR I=1 TO 12:YQ(I)=0:NEXT I 226 

200 INK 0,0: INK 1,26: BORDER Ô NB 

210 RD 

220 ‘ NIVEAU RE 

230 ‘ dRF 

240 MODE 2 HF 

250 PRINT:PRINT" >HU 
CHOIX DU NIVEAU":FRINT" 

260 PRINT: PRINT: PRINT STU 


[ul 


270 PRINT" NIVEAU Î : Le texte res :ÜH 
tera affichi en permanence. “:FRINT 
SPACES$ (15) s "Seulement risolution de 
situations. :FRINT 

Z8û PRINT" NIVEAU 3 : Le texte ser :ON 
a affichi le temps voulu avant j'ar 
parition de'":FRINT SFACES (14): "chaq 

ue question, ":FRINT SFACE# (13): "Mim 
orisation courte où prise de notes, 

"a PRINT 

290 PRINT" NIVEAU 3 : Le texte ser A 
a affichi au dibut de chaque situat 

ion pendant": PRINT GFACES (4j: "quel 
ques minutes. ":PRINT SPACES (15): "En 

suite il faudra compter sur sa mimo 

ire et sur le bloc-notes." 
300 LOCATE 6,20: INPUT" 

1x : ":NIVEAUS 


Votre cho :2E 


316 IF NIVEAUS="{" THEN NIV=1:GCOTO EF 
aGG 
320 IF NIVEAUS="2" THEN NIV=2:G0T0 ET 
CON) 
250 IF NIVEAUS="3" THEN LOCATE 1,20 HR 


:PRINT SPACES (BG) :2 FOR L=i TO 17:FR 
INT:NEXT L:LOCATE 9,8: PRINT" Le tes 

te visible sera visible pendant com 
bien de minutes ?":LOCATE 20,11:FRI 

NT" (de 1 & 6)" 

340 IF NIVEAUS="3" THEN LOCATE 6,26 HE 
: INPUT" Votre choix : ":B$:IF E 
$="" OR VAL(B#):9 OR VAL (RS) {1 THEN 
G0OTO 340 

39 IF NIVEAUS="3" THEN E=VALIBS):N DPF 
IV=3:AT=E#2000:G0TO 400 

366 LOCATE 1,.20:PRINT SFACES$ (RO): :6 %KF 
OTD 3üû 


370 TA 
380 ‘ FENETRES TE 
390 ‘ TE 
400 MODE 2 “HD 


410 WINDOW #1,1,45,1.22:PAPER #1.1: OV 
PEN #1,0:CL5 #1 
420 WINDOW #2,1,45,23,25:PAPER 42,1 RG 
:PEN #2,0:CLS 42 
430 WINDOW #3,47,80,1,1B:PAPER 43,1 EE 
:FEN #3,0:CLS HS: PRINTH3:PRINTHE, 
BLOC-NOTES": PRINT#S, " 

440 WINDOW #4,47,80, 20,25: PAPER #4, >TW 
1:PEN #4,0:CLS #4 
450 PRINT#L:PRINT#," 

TEXTE": PRINTH1," 

-—-";LOCATE #1,1,20:PRINTHL," 

—— ":PRINTH," 
QUESTION" :PRINTH1 


EG 





460 WINDOW #1,1,45,4,18 ON 
470 GOTO 2620 FC 
480. TE 
490 ‘ BOUCLE FRINCIFALE TD 
500 ‘ RP 


510 CLS#4:PRINTH4:PRINT#4," 1, REPFO :XX 

NSE":PRINT#4," 2, CALCULETTE": PRINT 

#4," 3. BLOC-NOTES": PRINT#4," 4, EI 

LAN':PRINT#4," 5, AIDE": INPUT #4," 
Votre choix “:A$ 


520 IF A$="1" THEN GOTO 400 >TD 
530 IF A$="2" THEN GOTO 730 TK 
540 1F Aÿ="3" THEN GOTO 1730 >UM 
550 IF A$="4" THEN GOTO 3200 >UH 
560 IF A$="5" THEN GOTO 3360 SUT 
570 GOTO 490 AB 
580 RETURN 1] 
590 ‘ >TE 
400 ‘ REPONSE RG 
610 RH 
820 CLSH4:PRINTH4:PRINTHA,” VA 
VOTRE  REFONSE" 

830 PRINTHA" >1F 
b40 IF X0=10 THEN 690 _2NG 

“650 PRINT#4: INPUT #4," Nombre : ":R 262 
1$ 
860 INPUT #4," Unitt ou I : "sUi$  >CX 


670 IF Ri=Q AND U1$="" THEN 496 ANT 


68ü GOTO 3770 >6J 
490 PRINT#4: INPUT #4," Heures : "sÙ ER 
1$ 

700 INPUT #4," Minutes : "3R1$ AI 
710 GOTO 3770 GC 
720 RE 
730 ‘ CALCULETTE TA 
740 TE 


750 NB=0:NE$="":T=0: FLAG=G: FLAGAZC CN 
760 CLS #4:FOR J=9 TO 75 STEF 32:F0 UF 
R 1=578 TO 476 STEP 24:6=1-2:D=1+16 
:2E=J-4:H=J+20:G60SUB 1356: NEXT: NEXT 


770 G=530:D=548:B=13:H=37:GOSUE 133 3DX 
(0 
780 G=598:D=616:B=13:H=57:GOSÛE 35 D] 
û 
790 G=563:D=581:H=15:H=37:G0SUB 133 DC 
û 


800 PRINT CHR$(29)"1"::PLOT 382,22, GI 
1: TAG: PRINT "1 2 5 0 .": 
8i0 MOVER -104,32:PRINT"4 5 6 + 


ils 
4 


820 MOVER -104,32:PRINT"7 8 9 x 


830 MOVE 536,30:PRINT "="; UD 


O 


840 MOVE 804,30: PRINT CHARS (240: 
850 MOVE 567,30: PRINT "C': 

860 TAGOFF :FRINT CHR$ (23) "0": 

876 FLOT 382,22, 

880 G=5 
(4 


. 890 WINDOH #5,67.77,21,21:PAPER #5, à 


G:PEN #5, 1:CLS #5 


2i:D=621:B=60:H=04: GOSUR 135 DV 


900 PRINTHS, STRINGS (10,".")s"O": 320 

910 N=458:V=18:AX=X:AV=V:FASX=24:FA >LX 

SV=32 

920 PRINT CHR$(23)"1"::TAG:PLOT 368 >AD 
11 LMOVE X, V:PRINT CHR$ (247) : :TAGO 

FF:PRINT CHRS (23) "0"; 

930 FEU=C:HHILE FEU=0:A$=INKEY#:605 ?LX 

UE 1390 

940 WEND DE 

950 GOSUE 970 > 

960 GOTO 730 >AD 

970 IF Y=18 THEN 1010 >NA 

980 IF Y=50 THEN 1060 NC 

990 IF V=82 THEN 1110 NE 
1000 IF Y=26 THEN 1160 FC 
1010 IF X=386 THEN NES=NE$+"1":G0TO FF 
1300 

1020 IF X=410 THEN NES=NB#+"2":G0TO FD 
1300 

1030 1F X=434 THEN NE$=NE#$+"2":G0TO FM 
1300 

1040 IF X=458 THEN NES=NES+"0":G0TO FR 
1300 

1050 1F X=482 THEN 1200 FH 
1060 IF X=386 THEN NES=NE$+"4":G0T0 3FY 
1300 

1070 IF X=410 THEN NB$-NE$+"S":GOTO >FM 
1300 

1080 IF X=434 THEN NES=NES+"4":GOTO FH 
1300 

1090 IF X=458 THEN OP$="+":G0TO 131 DEN 

0 

1100 IF X=482 THEN OP$="-": 6070 131 )ED 

ù 

1110 IF X=386 THEN NBS=NB#+"7":G0TO FX 
1350 

1120 IF X=410 THEN NES=NB$+"8":G0TO FL 
1300 

1130 IF X=434 THEN NE$=NB$+"9":G0T0 >FV 
1300 

1140 IF X=458 THEN OP$="x":G0TO 131 )CJ 

0 

1150 1F X=482 THEN OP$="/":G0TO 131 BL 

0 

1160 IF X=538 THEN 1240 PR 

1170 IF X=570 THEN NB=0:NB$="":T=0: DEC 


FLAG=0: FLAGA=0: OP$=" "2: FRINT#S, STRIN 
6$(10,".")3 "0"; 2: RETURN 


KE 


1240 IF OPs="/" 


1180 IF X=802 THEN GOTO 1750 
1190 RETURN 

1200 IF FLAGA=1 THEN RETURN 
1210 IF NE$="" THEN NE$="G, 
1:GOTO 1505 

1226 FLAGA=I:NBS=NES+", “:GOTO 300 
1230 RETURN 

THEN T=T/NE 

THEN T=T#NE 

THEN T=T+NE 

! THEN T=T-E 


1250 1F GFé="x" 
1280 IF ee # 
1276 IF OP$="- 
1280 FLAG=1 

1290 T#é=STAS IT): 
LEN(T#),","):T$s 


FRINTHS 
2 HE$=" "3: RETURN 


1360 NE=VAL (NES) : PRINT#S, STRING# IL HE 


-LEN(NES) ,", "3: NES: : RETURN 


":FLAGÉS 


, STRINGS (II 54 


1319 TENE +66 
1320 NB=0: NE$="": FLAGA=G: RETURN : AR 
1336 MOVE G,B:DRAW G.H,0:DRAW DH AC 
1340 DRAW D.B:DRAW G.B:MOVE G+3,B-2 CE 
1550 DRAW D+1,B-2:DRAW D+i,H-ZiMOVE KG 
D+2,B-2 

1360 DRAH D+2,H-4: MOVE D+3,B-2:DRAW KA 
D+3,H-6 

1570 MOVE G-1,E: DRAM G-14H,û VA 
1380 RETURN FF 
1590 IF A$=CHR$ (32) THEN FEUSL:RETU EA 

RN 

1400 IF A$=CHR$ (245) THEN K=X+PASX BE 
1410 IF AS=CHR$ (242) THEN X=X-FASX EG 
1420 IF A$=CHR$(241) AND Y£:26 THEN EV 
Y=Y-FASY 

1430 IF A$=CHR#(240) AND Y£26 THEN ET 
Y=Y+FAGY 

1440 IF A$="{" THEN X=386:Y=18:606Ù FU 

B 97ÿ 


1450 IF A$="2" 
B 1020 


THEN X=410:Y= 


18:605Û 


1460 IF A$="3" THEN X=434:Y=18:60SÛ GR 
B 1036 
1476 IF A$="4" THEN X=586:Y=50:G0SU 67 
E 1660 
1480 IF Aÿ="5" THEN X=410:Y=50:G0SU >6P 
B 1075 
1490 IF A$="4" THEN X=434:Y=50: GOSU 67 
E 1080 
1500 IF A$="7" THEN X=586:Y=52:G0SU GX 
B 1110 
1510 IF A$="8" THEN X=410:Y=82:G0SU EM 
E 1120 
1520 IF A$="9" THEN {=454:Y=82:G0SÛ GX 
E 1130 
1530 IF À$="O" THEN X=458:Y=18:605Ù >GU 
B 1649 


1540 IF A$="-" 


THEN X=482: Y=50:60SÙ 


e 
[er] 
Cr 





B 1100 


1550 IF A$="+" THEN X=458: Y=50:G0SU } 


B 1090 
1560 IF A$="X" OR A="s" OR A$="#" 
THEN X=458: Y=62: GOSUE 1140 


1570 IF A$="1" OR A$="/" THEN X=482 : 


:Y=82: GOSUE 1150 
1580 IF A$="=" OR A$=CHR$ (15) THEN 
X=538:Y=26:GOSUR 1160 


1590 IF A$="C" OR A$="c" THEN X=970 RE 


:Y=26:GOSUE 1170 


1600 IF A$="*" THEN X=602: Y=26: 50SU 


B 1180 


1610 IF A$="." OR A$="," THEN X=492 à 


:Y=18:GOSUB 1050 

1620 IF X=506 THEN X=538:Y=26 
1650 IF K=562Z THEN X=570 

1640 IF X=594 THEN X=602 

1650 IF X=578 THEN X=570 

1666 IF X=546 THEN X=538 

1670 IF X=514 THEN X=482:Y=i 


1680 IF X>602 THEN X=602 ELSE IF XX à 


286 THEN X=386 


1690 IF Y:82 THEN Y=82 ELSE IF Y<18 K 


THEN Ÿ=18 


1700 PRINT CHR$ (23) "1"s: TAG: PLOT 56 à 


8,1,1:MOVE AX,AY: PRINT CHR$(247)::M 
QVE X,Y:PRINT CHR$ (247) : : TAGOFF 


1710 PRINT CHR$(23) "Css AX=X: AV=VIR EH 
ETURN 

1720 ‘ 3YC 
1730 ‘ BLOC-NOTES ?YD 
1740 ” 3YE 
1750 X=376:Y=348:FASX=8:PASY=16: AX= MX 


X:AY=Y 

1760 PRINT CHR$ (25) "1": 
8,1,1:MOVE X.Y:PRINT CHR$ (232) : : TAG 
OFF: PRINT CHR$ (23) "0": 

1770 IF NIV=S THEN ATSAT-1:LOCATE 2 
42:PRINT INT((AT/2000) #60) ::ELSE GO 
TG 1790 

1780 IF AT=0 THEN GOTO 2650 

1790 A$=INKEYS$: IF A$="" THEN 1770 
1800 IF A$=CHR$(224) THEN CLS #3:FR 
INT#3: PRINT#S," BLOC-NOT 
ES" PRINTESS 
"1 GOTO 1730 

1810 IF A$=CHR$ (240) THEN Y=Y+PASY 


1820 IF A$=CHR$(241) THEN Y=Y-PASY 
1830 IF A$=CHR$(242) THEN X=X-PAGX 
1840 IF A$=CHR$(245) THEN X=X+FAGX 
1850 IF X>624 THEN X=548:Y=Y-16 
1860 IF X4376 THEN X=376 

1870 IF Y}348 THEN Y=348 

1880 IF Y£140 THEN Y=140 


: TAG: FLOT 56 À 


>CM 


?UV 
;2U 
FL 


1890 IF A$=CHR$ (15) AND NIV=Z THEN 
GOSUR 20G0:G0T0 285û 


1900 IF A$="1* AND NIV=3 THEN GOSUE : 


2000: G0T0 2650 
1910 IF AS=CHR$(13 AND (NIV=E AND 
AL=1) THEN GOSUE 200:G0T0 2715 


1920 IF A$=CHR$(15) AND NIV>3 THEN WH 


GOSUB 2000:E0T0 490 


1930 IF A$=CHR$(32) THEN FOR â=0 TO ER 


7:ELSE GOTO 1970 

1940 FOR E=0 TO 15 

1950 PLOT X+A,Y-H, 1: NEXT 

1980 NEXT:GOSUR 2005 

1970 IF A$S:CHR$ (241) AND A$<:CHRS 
240) AND A$<:CHR$(242) AND A$<>CHR# 
(243) AND A$S5"" THEN MOVE X,Y:FRIN 
T CHR$ (25) "13: TAG: PRINT A$::X=X+PA 
SX: TAGOFF: PRINT CHR$ (23) "0": 

1980 PRINT CHR$(23)"{":: TAG: FLOT 36 
8,1,1:MOVE AX.AY:PRINT CHR$(252) 5: M 
OVE X,Y:PRINT CHR$ 1272) : : TAGOFF:FRI 
NT CHRS$ (25) "O"s se AX=X: AYEY 

{99û GOTO 1770 

2000 PRINT CHR$(23j;"1": 
8,1,1:MOVE X,Y:FRINT CHR$ (232) : : TAG 
OFF: PRINT CHR$ (23) "0": : RETURN 
2010 

2020 "VARIABLES 

2030 ‘. 

2040 X2=INT (RND#5) #100+150 


( 


2060 X7=INT(RNDXG):IF X7<2 THEN EÜ6 + 


Ô 

2070 K9=INT (RND#12) 
70 

2080 X12=CINT (RND#4) #250) : 
THEN 2080 


:IF K12=0 


2090 X14=INT(RND#9): IF X14X2 THEN 2 ; 


096 


2100 RESTORE 3070:FOR I=6 T0 4:READ : 


AXIS): NEXT : X1$=AX1$ (INT (RND#5) ) 
2110 RESTORE 3080:F0R 1=0 TO 3:READ 
AXISUI):NEXT I: XES=AXIS (INT (RND#4) 
} 
2120 IF X3$="boucher-charcutier" TH 
EN 2130 ELSE IF X3$="marchand de pr 
imeurs" THEN 2160 ELSE IF X3$="lait 
ier-fromager" THEN 2190 ELSE IF X54 
="poissonnier" THEN 222ü 

2130 RESTORE 3090:FOR 1=0 TO 4:READ 
AXSSCI):NEXT 1: X5$=AX5$ (INT (RND#5) 
) 

2140 X6=INT(RND#100):IF X6:50 THEN 
2140 ELSE 2150 


UR 


: TAG: PLOT 36 


UT 
2050 X4=INTRND#6): IF X4=0 THEN 205 > 


IF X964 THEN 20 à 


eUY 


3YE 


VE 


ET 


34N 


FF 


2150 X11=(CINTIRNDK25)#4): IF X11450 V4 


je] 


THEN 2150 


ELSE 275û 


2165 RESTORE SH0G:FOR 120 T0 4:READ 4 


AXSS {ID :NEXT 
2170 X6=INT (RNDa 
{70 ELSE 2180 


Ii XS$=AXSS (INT (RND#S) 


2180 X11=CINTIRNDE7)#4)s IP IISG T à 


HEN 2180 ELSE 2260 


‘2190 RESTORE S11G:FOR 1=0 TO 4:READ 54 


BXSLII:NEXT I: KSS=AXSS (INT (RND#S) 
2200 KG=INT(RND470): IF X6é 
200 ELSE 2210 

2210 KA=CINTIRND#I6)#4i:IF X11<30 
THEN 2210 ELSE 2270 


2220 RESTORE 31230:F0R 1=0 TO 4:READ 4 


AXSST):NEXT Le XS$=AXSS INT (RND#S) 
) 


2230 X6=INTRND480): IF K6£40 THEN 2 3H 


23ü ELSE 2240 

2240 XALSUINT (RND#IGi #4): IF X11-45 
THEN 2240 ELSE 2780 

2250 RESTORE SASG:FOR I=ù T 
AXBSCI):NEXT I: KES=AXBS IN 
):60T0 239û 


D 3 
NT (RND#5) 


2260 RESTORE 3140:FO0R 1=0 T0 3:RE4D à 


AXS$IT):NEXT I: X8#=AX8$ (INT (RND#3) 
):G0T0 2296 
2270 RESTORE SISG:FOR 1=9 TO 3:READ 
AXBS(T):NEXT Le KES=AXOS {INT (RND#T) 
):60T0 229û 
2280 RESTORE 3160:FOR I=G TO S:READ 
AXBS(T):NEXT I: XB$=AXOS (INT (RND#3) 
} 


2290 X1O$=AXS$CINT IRNDKS) ) IF X10E= à 


X5$ THEN 2296 

2300 X17=INT(RND#30): IF X17<15 
2300 

2310 IF X1$="dix" THEN X13$="10" 
2320 IF X1$="huit" THEN X134="6" 
2330 IF X{$="onze" THEN X154="11" 
2546 IF X1$="seize" THEN X13$="16" 
2350 IF X1$="neuf" THEN X13$="9" 


2366 RESTORE 3170:FOR I=0 TO Z:READ :7 


AXISSCI)INEXT Is X15$=AX15S$ (INT (RAD 
#5)) 


370 RESTORE 3180:FO0R 1=0 TO 4:READ : 


AXIGSIT)ENEXT I:X16$=AX16$ (INT (RND 
#5)) 

2380 IF X16$="Douze" THEN Y16=1 
2390 IF Xi6$="Quinze" THEN X16=15 
2400 IF X16$="Vingt" THEN X16=20 
2410 IF X16$="Treize" THEN X16=15 
2420 IF X16$="Trente" THEN X16=50 
2450 IF X15$="1#90" THEN XR15=1:9 
2440 IF X15$="2#20" THEN XR15=2,2 


#30): IF {6{10 THEN 2 Ni 


35 THEN 2h 


RESD à 


THEN : 


:Jh 


V2 


AI 


>EF 


38R 


BL 
#EK 
28H 
LE 


2450 IF K15$="2#50" THEN XR1SS2,5 
“2460 1F K158="3#10" THEN XRIS=Z.1 
2470 

2480 ‘ TEÂTE 

2490 


2500 IF NIV=Z THEN GOT 2890 
2510 IF NIV=2 THEN CLS #1 
2520 PRINT#I," 
vec':X2:"francs en poche, ":PRINT#I, 
“ je suis parti chez le "sX3$i", "ep 
RINT#1," &'iX4: "km de chez moi. 
2939 PRINT#I," J'ai vu "sks$i" 
promotion":PRINT#I," 6" Andre 
le kg, mais j'ai prifir£ “:FRINTHI, 
" prendre"s{7:X0$:" @"sXS: "francs": 
PRINT#1," pijce." 
2540 FRINT#{," Le marchand m'a con 
seilli ":sPRINTHI," "XI0i" gi ii: 
“francs le kg,": Res : . j'e 
n ai pris"; 12: "qrammes. 
2580 FRINT#1," En sortant & 
{M hs 175 "min, ":PRINTH#I," j'acheta 
i Ge la poste en face"; X14: "timbres" 
2PRINTHI," & "sX1S$:" francs." 
256 FRINTH1," 
ris, j'itais de retour":PRINT#I," € 
hez moi." 
2570 IF FINI={ THEN FINI=0:PRINTHZ, 
" Vous pouvez maintenant": FRINT#2," 
vérifier ..,.":LOCATE 29,21:FPRINT 
" MssCALL SEB16:RETURN 
2580 IF NIV=2 THEN RETURN 
2590 ‘ 
2600 ‘ 
2610 ‘ 
2620 IF NIV=3 THEN FRINT#4:FRINTH4, 
# Four le BLOC-NOTES, ": PRINT# 
ge appuyez sur ‘COFY'": PRINT 
#4: PRINT#4, " Si vous avez fin 
i avant, ":FRINT#4," appuyez S 
ur ‘l''esLOCATE 21,23: PRINT "3" ::ELS 
E GOTO 2490 
2630 AS=INÉEYS 
2640 AT=AT-i:LOCATE 2,2: PRINT INT(( 
AT/2000) #60) ; 


QUESTIONS 


2650 IF ATEG THEN CLGHIENIV=4:LOCAT E 


E 20,9:FRINT" M":LOCATE 20,10:PRIN 


7" 3 "iLOCATE 20,11:PRINT"  ":LOCA 
TE 2,2:PAPER 1:FRINT" ": PAPER 
0:60T0 2690 

2660 IF A$=CHR$(224) THEN 1730 
2670 IF A$="1" THEN AT=5 

2680 GOTO 2630 

2690 G=0+1:XQ=0:LOCATE 29,21: PRINT 


( 
° 2700 IF NIVEZ AND Q511 THEN CLS#2: 


A "iX1$s" heures, à à] 


& "XL à 


"aX16$:" minutes ap 


HF 


VB 


>GL 


>UQ 
J 
YA 
PE 
>0D 


WF 
RH 


sUM 


GOSUR 2510: PRINT#4:FRINT#A, F9 
ur le BLOC-NOTES, ":FRINT#4," 
appuyez sur COFY'":FPRINT#4:PRINT#A 
HÈ Four a question, ":FRINT#4." 


"ENTER ":LOCATE 
:ELSE GOTO 275 


apPUVez sur 
21,2 PRINT" "sr Ale 






"aLOCATE 30,1 
E 2û,11:PRINT" 


CLS#i à 


HE 
WE 





“:GOTG 375û 


2740 GOTO 2710 NA 
2730 IF Q=7 THEN 2830 NA 
2760 IF G=6 THEN 2845 NA 
2770 IF Q=9 THEN 2850 ND 
3780 1F ü=10 THEN 2860 FM 


2790 IF Q=11 THEN CLS#1:CLS#2:CLO#E 4 


:CLS#4:GOTO 3270 












2800 XO=INT IRND#13) +1 GP 
2815 IF YQ{XG)=i THEN 2800 TM 
2629 CLS #2:0N XQ GOTO 2870,2880,28 :NA 
90,2960,2926,2650,294û,2950,3000,30 
10,3020,3030,3035 

2830 CLS #2:G0T0 291û NT 
2840 CLS #2:607T0 2970 3NG 
2850 CLS #2:6070 2586 FA 
28ëû CLS #2:G0T0 2990 PC 


2870 FRINT#2." 
je parcourue en tout":FRINT#Z," pou 
r faire mes achats 7 {en mtresi":5 
OSUB 3606: YQ(1)=1:G0T0 49û 

2880 FRINT#2," 
sst chez le":PRINTH2," MX" TG 
OSUB 3610:YQ(2)=1:G0T0 490 

2890 FRINT#2," 
ss{":PRINT#Z," & la poste *":G60SUB 
3620: YQ{3)={: 6070 450 

2900 PRINT#2," 
je mis pour le*:PRINT#2," trajet e 
t les courses ?":GO0SUE 3636:YQ(4)=1 


:GOTO 490 
ZA | 


Quelle distance ai- : 


Quel temps ai-je pa À 


Quel temps ai-je pa : 


Quel temps total ai ? 


| 2730 FRINT#2,* 





2510 FRINT#Z," Combien ai-je par 
chez le":PRINTHZ," iXi$i" 96 
2640: G0T0 490 
2920 PRINT#E," 
:PRINT#2," 6 ]a poste *":GOSUE 3650 
:Y{5)=1:G0T0 496 

Combien ai-je payi* 


ana 


2FRINT#2," ":K10$s" 2": GOSUR éd: 
Gté)=i:G0T0 Li 
2940 PRINT#2," 
LPRINTHZ," Sifghit gt: 
{7)=1:60T0 49ÿ 


GOSUE 5670: YD 


Combien ai-je payi : 





> 





Combien ai-je payi" 


2950 IF RIGHTS (X9$,1)2"e" THEN FRIN DR 


T#2," Combien pisent" ELSE PRINTHZ 
," Combien pise" 
2960 FRINT#2," sfg$i" 7 (en Egif: 
GOSUB 3670: YG(8)=1:G0TO 49ü 
2970 PRINT#2," 
il en sortant de":PRINT#2," chez je 
MXi$s" Se GOSUE 3690:G070 460 
2989 FRINT#2," 
st en tout *":GOSUE 3700:60T0 490 
2990 FRINT#2," Combien me restait- 
il en revenant':FPRINTHS," chez moi 
3: GOSUE 571G:G0T0 490 
3606 PRINT#2," Quel est le poids d 
es": PRINTHZ," ls K6$:" en grammes ?" 
:GOSUE 3720:Y0(9)={:G60T0 495 
3010 PRINT#2," 
-je revenu":PRINT#2," chez moi "15 
OSUE 3730: YG(1Gi=1:G0TO 49ù 
3020 PRINT#2," À quelle vitesse ai 
-je roul{":PRINT#2," & l'aller ?":6 
OSUE 3740:YQ(115=1:Y0(12}=1:G0T0 49 
( 
3035 PRINT42," À quelle vitesse ai 
-je rouit":FRINT#Z," au retour ?":16 
OSUE YQ(13)=1:YQ(11)={:G0T0 49 
0] 


Léri-tr 


SYRIE 


3035 IF RIGHT$(X10$,13="s" THEN PRIT ER 


NT#2," Combien risent" ELSE FRINT# 
2," Combien pise" 

3037 FRINT#2," sX10$s" 7 
:GOSUE 3685:YQ(13}=1:G0TD 435 
IU4G 
3050 ‘ 
J06û ‘ 
3070 DATA dix.huit,onze,seize,neut 


3600 DATA boucher-charcutier,marcha 
nd de primeurs, laitier-fromager, poi 
ssonnier 


Combien me restait- 


À queile heure suis : 


len Kai" 3k 


Combien ai-je diren :ED 


TD 


FM 


r-4 
cn 


#NX 


FE 


3PH 


3090 DATA le ris de veau,le rlti de EU 


boeuf, l'entrecl[te,la longe de porc 
le carrt d'agneau 


3150 DATA les tomates, les endives, 1 ; 





es haricots, les cerises, les oranges 
3119 DATA le aruyire, le Holiande, le ; 
Gouda, le fromage corse, le Roquefor 
| : 


GOSUB 2520 
3260 IF Q=11 THEN MODE 2:FRINT:PRIN 


7" BILAN GENERAL" :PRINT" 
ee" "PRINT:PRINT 


3129 DATA les moules,le thon, les me :TW 

riuchons, les sardines, le saumon 

3130 DATA steaks hachs,paupiettes, KE 

petits pltis,saucisses 

3140 DATA bétteraves, laitues,avocat >00 

s,kinis 

3150 DATA camemberts.petits Gervais ?ME 

.yaourths,petits chlvres 

3160 DATA truites,crabes,soles,homa :KE 

rds 

3170 DATA 1INFUT9G, ZINPUT20, ZINFUTS RE 

Ô,3INPUTI0 ss 

3180 DATA Douze, Quinze, Vingt, Treize iGW 

Trente 

3190 YF 
0 * BILAN 5XH 

3210 ‘ . X] 

3220 IF Q=i THEN 496 3MR 

3230 CLSHA:PRINTHA: PRINTH4, " ?PG 

BILAN" 
3240 PRINT#4:PRINT#4," NOTE UT 
Ù 1 TRE" = 
3250 IF st THEN 333 ?NG 
3260 PRINT#4, L "PTS; "/20 *EJ 
"a PTS#(10/ (0-1) 3)+PTOTAL) FAR 
TIE:"/20" 
3270 IF GQ=11 AND NIV=4 THEN FINI=i: 5LG 


?TA 


3290 IF Q=11 THEN FRINT:PRINT:FRINT FM 


"NOTE SUR 20 : ":FTS 


3500 IF Q=11 THEN FRINT:PRINT:FRINT 
" NOMBRE DE PARTIES : “:FARTIE 


3310 IF Q=11 THEN FRINT:PRINT: PRINT : 


" MOYENNE GENERALE SUR 26 : 
T5#(10/ (0-13) )+PTOTAL) PARTIE 
3320 CALL &ER16 


Fi CP 


3330 IF G=11 THEN FARTIE=FARTIE+I:8 5 


IDE=0:ESSAI=0:PTOTAL=PTOTAL+PTS:PTS 
=0:Q=0:FOR I=i TO 12:YQUI)=0:NEXT I 
:60TO 22 | 
3340 GOTD 450 
3350 
3360 ‘ AIDE 

3576 


3380 AIDE=1: ee = ON G GOTO 33 70,3 ŸE 
de 390, 3390, 33 339 


96,3390.3520.3530,3 


540, 3550 


3390 ON XQ GOTO 3400.3410,3420,3430 ; 


3440, 3450, 3460, 3470, 3480, 3450, 3500 
13910, 3470 

3400 PRINT#4: PRINTHA," “Un kilomitr 

è = 1000 mitres":PRINTHA:PRINT#4, " 
Il faut compter l'aller":PRINT#4," 

et le retour.":G601T0 356û 

3410 FRINT#4:PRINT#4," On connait 
l'heure de dtpart":PRINT#4," du d 
omicile et l'heure de':PRINT#HA," 

dtpart du magasin. ":PRINT#4," À qu 
elle heure y est-on'":PRINTH4," re 

ntri ?":6070 3560 

3420 FRINT#4:FRINT#4," On connait 
l'heure d'entrie":PRINT#4,"  @ la 
poste. “:PRINTRA4:PRINT#4," Et | heu 
re de sortie *":60T0 3560 

3430 PRINT#4:FRINT#4,"- Trouvons le 
temps pass{ pour":PRINTHA," l'a] 
ler et les courses.":PRINT#4," Ajo 


VH 


[ns 
to 


UC 


FF 


RD 


utons le temps mis pour La ":PRINT# 


AU SOMMAIRE DE CPC DU MOIS D'OCTOBRE 


DOSSIER : 
LES AATAOTE 


AU: 
CPC 


En vente chez votre 
marchand de journaux 21 F 








‘3490 FRINT#4:PRINT#4," 


: 3500 PRINT#4: PRINT#4, " 


.#," 


4," 
Ô 

3440 PRINT#4:PRINT#4," 
fois doit-on":FRINT#4," 
X15$:" F 2":6070 3560 

3450 PRINT#4:PRINT#4," On connait 1 
e prix d'un kilo, ":FRINT#4," Un qua 
rt de kilo fait 250 g.":PRINTHA," ] 
1 faut donc diviser 1000 q q par 4":: 

PRINT#4," Et pour":X12:" grammes 7" 


poste et le retour,.":6010 356 


Combien de 
donner ": 


‘:GOTO 2540 


“LH 


6H 


3460 PRINT#4:PRINT#4," On connait 1 7 


e prix d'un kilo. ":FRINT#4:FRINT#4, 
" Quel poids en avons-nous achet{ ? 
":GOTC 356û 

3470 PRINTH#4:PRINTHA," Il faut 100 
ÿ g pour À kg.":PRINT#4:FRINT#A," 
Donc 100 g vaut 0.1 kg.":G0T0 354û 


3480 PRINT#HA:FRINT#4," Quel est le 
poids d'unie)":PRINTH4:PRINT#4," 
seulle) des':X7:" ":XE$:" 3": GOT 

356Û 

On connait 

l'heure de dipart,":PRINTH4," Il f 

aut ajouter le temps passi":FPRINT#4 

." au magasin, pour la poste et": 

PRINT#4," le retour, ":G0T0 2540 

Il faudrait 


+60 


“TA 


en 
—<i 


LL 


age 


savoir la distance":PRINT#4," qu 


e l'on a parcourue 6 l'alier":PRINT 
#4," ainsi que le temps mis. ":G0T 
D 3560 
3510 PRINT#4:PRINT#4," Il faudrait 
savoir la distance":PRINT#4," qu 
e l'on a parcourue au retour":PRINT 
ainsi que le temps mis.":60T 
0 356û 
23520 PRINT#4:PRINT#4," 
calculer le prix":PRINT#4," des 
FsX7s" "sXO$i",":PRINT#A," Puis aj 
outer ie prix payi ":PRINTHA," "à 
X10$;".":6070 3560 
3530 FRINT#4:PRINT#4," Il faut d'a 
bord savoir ":PRINTH4," combien 0 
n a dipenst chez ":FRINTHA," le" 
3X3$;". ":PRINT#4," Ensuite, retran 
cher cette ":FRINT#4," somme de * 
sX2:" F.":G0TG 356û 
3540 FRINT#4:PRINT#4," Il faut d'a 
bord savoir ":PRINT#A4," combien 0 
n a dipenst chez ":FRINT#4," le" 
3X38;".":PRINT#4," Ensuite, ajoute 
r la d{pense de":FRINT#4," la pos 
te.":G0T0 5560 


3550 PRINT#4:FRINT#4," Il faut d'a 


11 faudrait : 


me 
Æ 
5 


C2 
< 


:DM 


»TV 


M 


bord savoir combien":PRINT#4," on 
a dtpenst en tout.":FRINT#4." Ens 
uite, retrancher cette ":PRINTHA, 


ve em 


somme de "325" F,:G0TÉ 





3560 CALE SBE6: GOTO 465 3RE 
3570 FYH 
3580 ‘ BONNES REFONGES Y] 
3596 FYE 
3600 R=t4#2#1000: DE 'M": RETURN Hi 

3610 R=0:RETURN SLA 
3620 R=0: RETURN FLE 


3630 R=X16+X 17: U$="MIN": RETURN AH 
3640 R=CIXIIN A) # CXL2NESO) )+EX7#KO Rs TM 
U$="F': RETURN 

3650 R=XRIS#X 14: DSS UF RETURN 6 
3680 R=(X11NA4)#(XIZ\IEC) sUS="FULRET 36% 
URN 

3670 R=0:RETURN LG 
3680 R=X12/1000: U$="KG" : RETURN #1] 
3690 R=X2-{((X11\4)#(X124 200) )+ {474 YN 
K9} } s U$="F "2 RETURN 

3700 R=C(KII\AI XIII) + EX 7KGI + FE 
(XR1S#K14) s USE": RETURN 

3710 R=K2- CE CX LIN) CXAZNZSO) +78 ME 
X9)+CXR1S#K 14) 3 U$= "FT: RETURN 

3720 R=0: RETURN LE 
3730 ReX1b+X17:U$=X1236: RETURN 26 
3740 R=G: RETURN LE 
3750 R=ü: RETURN #LF 


3760 #YJ 
3770 "GESTION DES REPONSES 3YE 
3780 ‘ ZA 


3790 IF R=VAL(RI$) AND US=UPPERS (UL GP 
$) THEN GOSUR 4010:G0T0 3840 

3800 IF R=VAL(RI$) AND UFPER$(UI$)= AU 
"MN" AND U$="MIN" THEN GOSUE 4516:6 

OTO 5840 

3816 IF UPPERS(UI$)="I" AND R=0 THE :24 
N GOSUB 4010:G0T0 384û 

3820 IF ESSAI=1 THEN GOSUE 4146:605 VU 
UR 3910:G0T0 S88û 

3830 GOSUB 414G:ESGAI=1:G0T0 490  >AX 
3840 IF ESSAI=1 AND AIDE=i THEN FTS LR 
=FTS+0,.5 

3850 IF ESSAI=1 AND AIDE=G THEN FTS 3 Jk 
=FTS+I 

3860 IF ESSAI=0 AND AIDE=0 THEN FTS JL 
=FTS+2 

3870 IF ESSAI=Q AND GIDE=1 THEN PTS JM 
=FT5+1 

3980 ESSAI=0: AIDE=0 
3890 GOTO 2699 FE 
3900 #YE 
3910 ‘ AFFICHAGE BONNE REPONSE YF 
3920 ‘ 3YG 


>PX 





riponse {tait :":PRINTHA 


"OO CES OH RE" MIN E0TG 397 
3950 IF Re THEN PRINTH4:FRINT#A, ° 
IMPOSSIELE":G0TO 3970 
3960 PRINTHA:PRINTHA, 
"su$ 
3970 IF NIV=2 THEN GOSUE 
3980 CALL #BB1é 
3990 RETURN 
4000 * 
4010 * MUSIQUE 
4020 
4030 LO 
‘4040 RE 
OTE=i TO J4:READ 6. :,C,D:SOUND 1.4, 
B:SOUND 2,C,D:NEXT NOTE: BORDER O:RE 
TURN 


# tu 
Fi 


: 
AE4 
FeiU 


GAGNE 


73, 24: PRINT" 


PRE 
JUSTE 


Or cn CT 


DO 


“4050 DATA 106.20,426,20,80,15,319,1 à 





RÉ RE TE Ne 
9,0,9,0,5,680,20,316,20, 71,20, 426,20 


.63, 20,426, 20 


4960 DATA 8û,15,319,15,0,5,0,5, 80,2 3 


0,319, 20,84, 20,426, 20, 108, 20, 424, 20 


4070 DATA 80,15,219,15,0,5,0,5,80,2 > 


0,319,20,71,20,426, 20,63, 20, 426, 20 


4080 DATA 80,40, 319,40,84, 20,426, 20 > 


,106,20,426, 20 


4090 DATA 80,15,319,19,0,5,0,5,80,2 à 


0,319,20,71,20,319,20,63,20,319,20 
4100 DATA 60,20,478,20, 63, 20,478, 20 
,71,20,478, 26,90,20,478, 20 

4110 DATA 84,20,4 
0,95,20,426,25,84,20,426,20 
4120 DATA 80,8û,319, 80, 0,0, 0,0 
450 

4146 ‘ MUSIQUE FERDU 

H50 ‘ 

4i8û LOCATE 74,24:PRINT" FAUX ": 





4170 RESTORE 4186:BORDER 0,26:FÜR N : 


OTE=1 TO 13:READ A,B,C,D:SOUND 1, A, 
8: SOUND 2,C,D:NEXT NOTE: BORDER O:RE 
TURN | 

4180 DATA 63,80, 319,80 

4190 DATA 71,20, 319, 20, 80, 20, 319, 20 
,63,20,319,20,71,20,319, 20 


4200 DATA 80,40,315,40, 40, 40,319, 40 58 


4210 DATA 47,20, 478,20, 40, 80,478, 60 à 


4220 DATA 53,80, 319,80 


230 DATA 63,40,319,40,80,40,319.40 ; 


4240 DATA 71,80, 426, 80 


EX 


CLS HA: PRINTHA: PRINT," La E :X 


IF XG=10 THEN FRINTHA:PRINT#S, © 


26,20, 106, 20, 428,2 à 


3CX 


>CH 











AM: 
BOGGLE 


Ce jeu de mots se joue 
avec 16 dés, qui sont 
remplacés par des 






séquences aléatoires. 
| faut un dictionnaire pour 
vérifier, le cas échéant, la 
bonne orthographe des mots. 
Ce jeu ne compte pas les 
points, il affiche les lettres et tient le 
tableau des scores des joueurs. 
‘’AMBOGGLE.BAS'"’ inclus la règle du 
jeu, des exemples et le tableau pour 
compter les points. 


Mot de 3 ou 4 lettres. 1 point 


Mot de 5 lettres... 2 points 
Mots de 6 lettres... 3 points 
Mots de 7 lettres... 5 points 
Mots de 8 lettres... 11 points 
@Ptilippe CANOUIL 

" EGGGLE 5f CAMCUIL F, LE 
D ON ERROR SCTO 1740: EYNE ‘EF 





2 





Qu HI EN Gr Etes 
er Eu ee 


198.114, 124, 06,68 
6û MODE G:DIM dest(lô.éi.alpnaizei. M 
desi(i7i.deiléi.sensiié) 

00 LOCATE TIC: PRINT tt BOGSLE ##03€ 


119 FOR izi 70 Î6:FOR uzi T0 6:READ :D6 
a$:desh{i.u!=a#:NEXT u.i 
120 DATA UL.IHRE ASF RRI. 0, 1, SAC 


esse sns en: 


HE.FE. SR. SL CAE. SRI. M, 0.4, 


AIOTE.D.SNT DE. AM 0 G BJ 
130 DATA KETNU OR AL LR TA Ye PAC 
UG.E.L,N.N.S,RHE. 1.0. C.MPELAE 


n +: 


ere dans la grille * 

170 MEMORY MOFFF:FOR i=0 TO G:READ AY 
a: POFE RAGOO+:. a: NEXT 

180 DATA Lie, 0. kcd. bas, kbb.E22, 405, 36H: 
ka, &c9 

26 ‘+* routine double hauteur en (KR 3RC 
ÊM) # 

220 FOR a=RA020 TO BAM20+124:READ b DU 
$:POKE a, VAL ("RM 4DS) 2 NET 

230 DATA dd. be. 00,0dd,66,01.46,23,5e :DN 








ni TE 1e 
. Gô,03,54,50,15 


a 
un 

D 
hr 
[sa 
res 
un 








CH 
.2l 
4ig 
56 
4zû 


Len] 


4 © 
» CA 


= + + * 
on EC 
à € 


Ho" + 
cn 
Z D LT € 


+ 


+) SJ CD De 
LE] 


. 
r 
na 


510 DATA Bü,67,22,02,81, 


«44 


J20 DATA 45,.95.42,4c,45, 


47 
sas 
80 


23,10.60.3e.15,.cd,.5a.b5. 


cd.Sa.bb.06,54, 


 gi.23.i0.9Ù,c5 





OÙ, Ge 





0.25 ited.Je.te,cd.5a.bb 


à Oa,cd.Sa.bs.3e.56.cd.5a.Db : 








“# routine double image en düû TA 


ray 


ÿhi 


ns 


G DATA € 


DATA 


Rift + 

FÜR a=60ü TO 
DÉ:POFE a, VAL (FEAR: 
21.+5,09.22,84,81.72,66,8i ? 





&8000+B121: RER 
NEXT 


G0,40,22,80,81,22,82,81.06 : 
ca.co.66,8,ci.3e.0é,b8,.26 D) 


21.49.c3.18.07,2a,84,8i.11 à 


_ 


G6.19,22,84,61. 
81.3e. 


ÿ5.b5 


G4,11.00. 10,17. 


À 61.10.cb.21.55,dd, 22.86.81 D 


Et] La] 
7.22,82,81, 


A 0,4 


"1 09 


= = 91 gi ; 
e3.22,96.81.21,80,57,22,85 ÿ 


d.a,66,21,b5, 


45,20,38 


22,.80.81.2a + 





27 Cf 51 97 30 
22,66,51,22 FL 


rs ad Sû Ti 
CS. a4 oi À 


e5,23,86.81 : 
cd,a4.80,c9 : 
2û,49,4d,41 : 


8.137,06, 0c,c5.cd,ai : 


L AT YT 





N 14m 17 





ñ 11,00,06,17,e 


me es 


L4 AT: - : 5 
610 DATA B7,16,02,cb,+#7,c0.8f,20,04 





1 97,18.02,.c0.d7.cb,d+, 20,54 





TA 04,cp,79,16,08,ch.df,cb,ë7 


OÙ 

700 ‘+ releve des adresses des cara 
cteres aipha et de travaii à 

720 FOR i=65 TO 90:PORE EAGGI. 1:CA 

L RAGOG: aïphali-64)=PEER (RAGOS) +256 

#PEEK (RAOOA) :NEXT: FOR iz23û TO 2dé: 
1POKE RAOÛI, 1: CALL HAOGG: desi (i-F3û 
}SPÈER (RAGO9) +2S6#FEEE (RAGOA) : NEXT: 
LAGO!, ES: CALL &A 
“#initialisation adresse griii 
e caracteres pour routine double ña 





1 
750 ‘# init. paranetre jeu + 
810 MODE 1:LOCATE 10.1 
du jeu OD/N':a$:IF a 
THEN GOSUE 1740 
820 MODE Z:LOCATE 3,3: 
de joueur {a 8 
nbi£i THEN 620 
850 DIM ni$inbi): 
irection des jettres : tout (Sien 
s ou iNormal ":a$:1F a$= Fe OR a$ 
="n" THEN dif=û ELSE dif= 


$="0" OR a$="o" 


= 


snbi: IF nbj58 CR 





NT 
À S1.19,e85,.07,.66,.51,7a.66.8i à 


5b.52.81,7e,.cd.cc. gt, 12,17 à 


Re - | uk 
f6,00,13,17,27,10,+7,2a.6 DM 


A w Fe % 
\ Sl.ed.bû,c6,4$,ch.74, 50,04 à 


87.18.02,cb.c7,c9,79.cb.47 3€ 


RARE NE la MU 5e jt 
G4,cb.6f.18.02,.cb.cf.ch.57 : 


675 DATA O4,cb.at.18.05,ch.ef.cb,77 à 


G4.cb.bf.18.02,cb.+4.c7.00 à 


10: INPUT'Fegle 5h 


INPUT "Kombre à 


LOCATE 3,6: INPUT " 





EM 








“Temps de 


ne a. 





! 
Lu 


min] 





+ 3" 


3.12: INPUT 





85 LOCATE 
de partie 
cra=33g 
Béû LOCATE 3 
UP Maximum 
um=9$ 

57ÿ LOCA TE à 


“iscrmilF sc 


.19:PRINT "Eour 
de coups ou de points 
né deux +015":LOCATE is 
“pendant le derouiement 
ONC. " 
LOCATE 4,22: PRINT ‘Four passer 
en mode LOUPE ou revenir en NORMAL 
appuyez une touche, ":LOCATE 10,24:F 
RINT "UNE TOUCHE FOUR LA SUITE, iCA 
Li £SHBIB 
Ci 5: FOR i=2 
2,1:PRINT ‘Nom du joueur No“:i/ 
22: INEUT "oenj#(i/2}ini$ (is 2)=ÛFF 
R$ini$(1/233:NEXT 
S0û ‘# jeu calcul aleatoire des Î 
des * 

2 ON BREAE GOSUE 1700: RANDOMIZE T 
IME:MODE Q:LOCATE 3, {Gi PRINT FPATIE 
NTEZ" 

G50 FOR x=i TO léidelx)=û: 

ii TO 16:a1=iNT (RND45,99)+ 
G40 du=INT (RND#15,5 
THEN defdxizf ELSE 540 
Soû GOSUE 1565 
Sèû EXT 
980 ‘+ ecran tracer du BOGGLE +# 


u CHR 
875 


TO nbits 


Cr 


1000 CLS:GOSUE 1530: PEN ot ltd à 


dd=Ü: FOR v=i TO 4:FOR x=1 TO 4:ddd= 
ddd+i:LOCATE g+ix2), (y ARABE LESC 
{Z30+ddd) :CALL BAGEG, &i$:NEXT XV 
Giû 
CR v=5 Br: FOR x=2204 
T9 56 STE ëd: nue dod+{:IF sensid 
dd)=i THEN xi=x-38: x2=u+26: 
ve=yi ELSE IF sens (ddd}=2 
—2Bratent+ipivisy+22: yzzy]) 
1920 IF sensiddd)=5 THEN x1=x-28:x2 
sxfsvley+22:viev-25 ELSE IF sens (dd 
di=4 THEN xf=u+5Giueuliyiey+si vis 
v-22 
1050 MOVE x1,yL:DRAW x2,v2: IF 
ddd}=i THEN MOVE x1,vi+2:DRAH 
+2 ELGE IF senstddd}=2 THEN MOVE x! 
.yYI-Z: DRAM x2,v2-2 
1046 NEXT:NEXT:CALL &BGG0: ‘transt, 
et agrand. image en &4000 a &7fff 


in 





id xl=x 





sens | 


#2, VE 


rech àF 


arreter 31 


H 
il detdxi=G :Eb 


n 3: INK 3lsddd=iir +1 





ME 
PL: 





Ces 


rs 
T1 


}FJ 


>AN 


V4 















AGIR ai NAT 
DSUE ESiGii0CE 


j 
uns Te 
5 ut JÉSGEVERT Sù l 





a ] LH 
EE. 
oT 5 
WÔLE ELSE Di:imagei=iiCAi 
BCOS EI 
1110 IF t THEN {Gr boucle atte :FÈ 
nte derouiement manche 
130 ‘+ anul chronc et saisie des s EH 
cores * 
de DHEALL no GBC LV 
ERERE STOP 
ÎT REMBINIG: FEX 
FAR 
T''escubisculii= 
i+VALisca$} :LGCAT 
Si: GOSUR 1590:NEX 
1179 LOCATE 1,Z4:PRINT "Si ERREUR TL 


dans jes points E‘:a$="":NHIlE at= 
D ie OR a$=" 


Évte +600 


DCE 1990: NEXT: GOTO 
{7ù 

{186 cour=courtisIF fin=0 AND cour: 
coum AND scrm:Mñfisciil},sc;tsi,sc] 
(.sciiéi,sciisi.scitéi.scit7},sc) 
{8)i THEN FOR tes! TG GG: NEXT:G0TE 
526 

1200 ‘# table de scores final * 


1220 CLS:LOCATE ie BOGGLE 
- SCORE #:v=0:FOR izi TD nbi:scm=h 
AXscitii,sci{i}.sci{ii,.scii4),.scit 
g).scji6),scji7i,scii(4li 
1230 bloc=0:FOR 31=1 F0 nbjsiF seit 
il)=scm AND bloc=ü THEN LOCATE !,v+ 
li) #2: PRINT USING "Hs: PRINT 
- “iLEFT$(nj$(ii). Dis: OCATE 15,v 
+ÉCi-HHE2) PRINT" 'escjlitissscitit 
}=ü:bloc=i 


1546 NEXT 11,1:LOCATE 1,22: PRINT" No : 


bre de cours “scoup::#fin=0:LOCATE 
1,24: INPUT "UNE AUTRE O/N'sa$:iF 4$ 
="G" OR a$="o" THEN fin=ÿ:coup=0:ER 
ASE nj$:G0T0 820 ELSE MODE 2:END 





5 sens{dxi=seni 
IF senisi THEN 15 








pari o 


128:603 
À 


EN der=gdar-2: 





1455 pt=  der=ger-d: 

ECSUE 14 

1415 bt= | det 

GOSUE 14 

1425 btz7 05 

1435 NEXT 

1885 FOR 2=0 TO F:PDÉE (desiidui+i- 

Î).atz):NEXT 

Û G {47ü 

z=û TG 7:s=PEEX alpha iwli 
desi{ T:GOTC 





# ecran jeu scores # 
1570 LOCATE &,1:PRINT %# BOGGLE #°: 
LOCATE 7,4: FRINT'Nb cours':LOCATE 5 
SG: PRINT USING"##":cour 
1500 GRAPHICS FEN 1:FLOT 174,298:0R 
BW 430.706: DRAN 430,102: DRAW 174,10 
Z:DRAW 174.296:FOR i=174 TO 430 STE 
F G4: MOVE 1,266: DRAW 1,102: NEXT: FOR 
i=102 TO 296 STEF A8: MOVE 174,i:DR 
BW 450,1: NEXT 
1590 FOR p=1 TO CINT(nbj/2} 
1,{p#5):FRINT LEFT$ini$(p}, 
E {,{p#5)+2:PRINT scitpiiNE 
1600 FOR pi=p TO nbi:LOCATE 5. (pi- 
pti)#5:FRINT LEFT$(nj$ip1),5):LOCAT 
E 15. ((pi-p+i)#5)+2: PRINT scjipii:N 


GCATE 
LOCAT 


:Lû 
iii 
XT 











EN der=der-3 08 


M 
LE 
















CRÉRRSEEESE 
+ CnFonG * 
(HÉÉÉÉEAERE 


H LOCAT 


inuer 
en-dant 
LHIaQUE 


et voiria regie. 
le cefilement de 
arretrour ja su 


1 © 0 


CT 
ET 
C3 
be STI EN 
En 4 
J ve 
Ti e 
es 1 
PA 
S 


L.i.80,i,3:P 
- GCATERL, 35.2 :P 
1815 PRINT" BUT": 
aps de temes determine par vous, ji 
s'agit de relever et de noter ie 
pius possible de mots, en combinan 
t les jiettres sorties par Îles des." 
tPRINT:FRINT"  MOTE" 
1826 PRINT" Tous les mots 
nnaire sont autorises (substantits 
. adjectits, verbes à l'infinitit e 
t au participe passe).Gont excius 


+ 


es noms propres. les mots avec apo 
strorhe ei trait d'union, les 
sigies. es abreviations, les che 
villes: 


INT: 
r qu'un mot soit valable il 


PRINT" PRÉCISIONS": PRINT" Fou 
faut :" 
PRINT" qu'il ait plus de deux 
lettres: que les lettres qui le 
composent soient contiques par le 
5 cotes où par les angles: que le n 

Ote'ss 


1840 PRINT'ouisse etre correctement : 


l'ordre ortho 
lettres: que dans le 
la lettre d'un meme de ne sci 


“s:PRINT" epele dans 
graphique des 
mot 








ji dictic : 


RINT" (fragments de mots) "iFf à 


=. EU 
IN CT Ent ent 


ES 


En 





“ 


ne 
CT GC. 


za 














Fr 








as utilisee deux fois.": 
PRELIMINAIRES" 

FRINT" Chaque joueur est 

de parier et d 


La 

IT! 
INT 
106 
{8 


Es F 
‘un crayon. Select 
ionnez Île nombre de joueur (8 
imum), la position dé lettres ! 
oite ou dans tous les sens), le tem 
es de jeu {si Ü =; 24û secondei, n 
ombre de point et nombre de cour 
pour": 

1860 PRINT" une partie.":C 
tPRINT:FRINTY LE ae 
d tous les joueurs 
ez une touche. les 
t les lettres des d 

idement les 


LL 
NT" 


ä 
is examinen 

s et notent rap 
mots qu'ils ont rerere, 


1875 PRINT" Quand le temes est ecou :Ÿ 


le, iis s'arretent dépens get iis 
comptent les points, ": PRINT: PRINT" 
LES FGINTS":FRINT" Trois Se les 
sont possibles. ":PRINT:FRINT" Fre 
miere formule: À la fin de ia man 
che. chaque “ 
‘1880 PRINT" joueur annonce 
et apres": 
1895 PRINT® controie ii marque les 
points suivants: ":PRINT" Four to 
ut mot correct de 3 et à lettres .. 
1 point":FRINT" Four t 
out mot correct de 5 lettres ...... 
£ points" 


1900 PRINT" 
t de 6 jettres .,.,,..,,,,,,,.,. 
oints":PRINT" Four tout mot corr 
ect de 7 lettres ..,,.,,,.,,,,,, 5 
points":PRINT" Four tout mot co 
rrect de 6 lettres .,..,,,.,,.,.,, 
ii points" 

1910 PRINT" (Pour les mots commun a 
tous les joueurs le mot peut etre 
raye)":CALL SBBIB:PRINT: PRINT" Deu 
*ieme formule: Ne comptent que les 
mots que chacun a'ete seul à trouve 
Fe Il faut donc eliminer tous le 
s mots notes par au moins deux joue 

urs, "; 

1920 PRINT" Ces mots"s: PRINT" s 
rayves des listes en presence. Île m 
arque les points pour les mots res 
tants suivant le tableau ci-desus." 
:PRINT:CALL &EEI8 

1930 PRINT" Troisieme formule: (En 
solitaire). Il s'agit de trouver le 
maxiqum de mots avec ou sans limit 
ation de temps. C'est ainsi quen 


+ 
& P 


ses mots : 


Pour tout mot correc : 


cn 


T1 
ai 


73 


DA 


3FT 





ous avons trouve 178 mois en com 
binant les lettres du BOGGLE donne 


en presentation ":PRINT 

1945 PRINT"  PRECISIONS':FRINT" Ke 
reter deux fois la meme lettre pour 
former un mot est interdit, ":PRÎNT 


PRINT" Supposons C À soient co 

ntiques: Vous n'avez pas je droit 
de former je E Ü 
verbe R u € À qui utilise indumen 


Meme si plusieurs mots. orthograph 
les de facon identique. Ont une: 
nification absolument differente, 
l ne faut en compter qu'un seul a 
a marque," 

1960 FRINT:FRINT" Far exempie: C 

U (vignoble) CRU (pas euiti CR 
U {vif} C À Ü fchoquant) ne rapport 
ent qu'un point, ce ne sont qu une 
seul et unique combinaison de lettr 
e.":CALL LEBIS 


pal 


1976 GOSUE 2070: NINDOW#1,17,40,5,24 à 


1980 PAPER#1, 0: PEN#I,Î1RE 
sa=0:FOR i=i TO 188 STEF 

D: PRINT#L.a$:TAB(IA4) :b#:a=atliIF à 
={0 THEN LOCATE 15,25:PRINT'Une tou 
che pour la suite"::CALL MBB1B:LOCA 
TE 15,25: PRINT SPC (24) ;ta=û 

1995 NEXT:LOCATE 5,25:FRINT"Voulez 

vous revoir la liste o/n“::a$="": it 
ILE a$<"0" AND a$5 "Ne a$=UPFERS I 
NÉEYS$) :HEND: IF a$="0" THEN CLS#i:L0 
CATE S,25:PRINT GFC(TG): 26070 1965 

2000 RETURN 

2010 DATA abat,aboi.abot.aere.aerer 
ana,ane, anee, anet,ans.anus,are. are 
carete,arme.arme,armee.armer, armet 
«armon, arome, ars, arum, atome. -—--,.ba 
i,ban.banat.bans.bar,bars.bas.bat,b 
ate,batee,bater.bati.baton,batons,Eb 
oa.boite.boitee.boiter,bon.bons.bot 





x 


2020 DATA ceans,cens.cet.cetane.cet : 


one,cerat,cran,crane.craner,cratere 
screation,creations.cree,creer,cret 
.crete.cru,CPUS,----, ecran, ecrans, e 
crou,ecrous, cru, ecrUS, BnOU, MU, EAU 
s.ere,etai.ete,----,i0n.ion8,i0n5, i 
ota,ite,tea,item,----,meat.mee, menu 


2030 DATA menus, mer, mere, merou, mero 
us, meta, morne, mors, OU, MOUS, BUT, MU 
e,mureé, murer, MUPE, MUPS,MUS, ———,n 





ie meme R':PRINT:PRINTE 


#C* 


Es 
Æ 


Lea] 


Es 


EF 
VD 


JP 





abot.nabote,nee.net,nota.note,.notes 
noter, numero, AUS, ----, OPME, OPNE. Of 
ner,ote.otee.oter.ours,----,rapot.r 
abote.rabotee,raboter,.rat.rate,rate 
e.rater 
264 DATA ratio.ration.rations,.res, 
recreation.recreations,recru, recrus 
.ree,resr, remous, retenu, PETENUS. FU 
en, PUS. -———,5abot,s 
poter,sana.snob.sur, surate, sure.our 
et.surete,----,tan,taon,taons,tare, 
taree, taro, tee, terce.tercer.tenu, te 
2086 DATA Liare.toi.ton.tons, 
tonsure.tonsuree.tonsurer.----,une, 
uns, UrBE, LFNE.USnBe 
2070 ‘+ tracer boggle miniature # 
2590 RESTORE Z{7G: MODE FOR t 
G 10 STEF ZiREAD 1#:LOCATE 15+ti,5 
CALL RAU2O, 614: NEXT:FOR du=i Tü jé: 
READ wl:READ senl:GOSUR {SIC MENT 
+ GRAFHICS FEN S:INE 2,28:PLOT 8 
296: DRAW 215,206: DRAW ne 

à Ë7,102:DRAN E7,2S6:FOR i=67 T0 ? 
5 STEP SZ: MOVE i,2S6:DRÈW 1, U2:NEX 
T:FOR i=102 TO 296 STEF 4B:MOVE 67 
1: DRAU 215,1: MEXT 
2110 PEN {2INE 1.18:ddd=ti FOR v= 
O 4:FOR x=1 TO é:ddd=ddd+i:LOCATE 
+2, Cvsi +5 i$=CHRS (Sida CAL 
L'RAO2O,G1$:NEXT y 
2120 GRAPHICS FEN 3: INE 3, b:ddd=ûiF 
OR v=270 TO 128 STEP -48:: FOR x=102 
TG 198 STEP S£sddd=ddd+i:IF sens(d 
ddi={ THEN : ES 
vê=yi ELSE 1F sensiddd)=2 THEN x 
“és szexttdi visu visyi 
2130 IF sensiddd}=5 THEN de 
Nes se 
ens (ddd}= 
svisy+ Re ELSE + Wxz=Ù 

2146 IF wuz=! THEN MOVE xi,vi:DRAH 
HAE sens (dddi=3 THEN de . 
2=x1 ELSE IF cencsidddi=4 THEN xi= 
+2rx2=x 
2190 MOVE x1,v1:DRAN x2,y2: IF 
dédi=1 THEN MOVE Hi, VHS: DRAN 2, ve 
+2 ELSE IF sens (d891#2 THEN MOVE x1 
VI-Z: DRAM «2, 2-2 
2166 NEXT:NEXT: RETURN 

2170 DATA B,0,6,G,L,E,18,1,5,1,25,4 
AE 1,3,1,5,3,1,1,15,1,13,1,18,2,14, 
1,2,3, 15,2,21,1,19,3,1.1 
7 "# clear input # 
2210 a$="I"sWHILE a$<5 

HEND: RETURN® 





CN 4 











re a$=INFEYS: 


anote.sabotee,sa 


tonus, 


sens ( : 





:VH 


r-1 
Les] 


JV 


>GF 











LU RARES 
++ 


25 #4 
*+ 
3û ‘#4 EAGIX 


++ 
A5 #4 
#+ 
Eù ‘#4 
#+ 


-presentation- 


"#4 


#+ 

Eù ‘ 

30 MODE © 
QG SYMEOL AFTER 2 
1iG SYMEOL 240 

120 SYMEOL 
8.196. 
130 SYMEOL 


sr re 


ar. 
WE 


= =. mur _ dé A b 
244,0,204,170,170,208, 13 


166 SYMBOL 
56,238.5 
170 SYMEOL 
7,233,0 


laide 


180 SYMEOL 
.Ù 


PCA Ed 


SG INE O,GsINE FAO: INE 2. SG: INK 5, 5 


JINK 4.615 INK 5,24: INK 8.19: INE 7 
1 294INK 8,26: INE 9,21: 1iNK 10,1,6:SP 
EED INÉ 30,50 

200 PAPER OPEN ! 

210 WINDOW #2.1.20,14,2S:PAPER 42,2 


* +CLS#2 


TO AMOR LE 


241,6, 110, 198,:85, 196,17 à 


Re PERLES 
242,0,206,170,170,208,17 


nsc Son Nos OR SR GaUÉ 
Le Us LD 106 4e 100019 À 


245.0, 236, 136,136. 206.13 : 
246.0,257,141,136, 208.15 


247.0,119,36,36.38.36.55 : 








300 FLOT 


N ly 


Ie 
20 


ENERGIX 


Un homme seul dans un 
labyrinthe avec une lampe 
torche à la main part à la 
recherche des piles 
nécessaires au bon 
fonctionnement de son 
ustensile lumineux. 


250 FOR x=485 TO SéüsELOT x.8û 
AR G, 200: NEXT 





290 v=bü: FOR #=56û TO SRG: FLOT vs 5 


DRAWR O,200evev+iiNEXT x 


NE TOMNEYT 
125,350: NEXT 


£4 


270 FOR x=482 T0 558: PLOT :,584,3:D x 


S29. 390: NEXT 
PLOT 125,350: DRAN 190.280 
FLOT 525,356: DRAM 580,280 


80,60, 0: DRAM 160,80: DRAW | à 


RAW 
286 
290 
&û, 26ÿ 
31û MOV 
5,280 
320 FLOT 
dôû, Z6û 
356 MOVE 
. 200 

346 FLOT RG. 60, CG: DRANR 0.2 
B0, 60: DRAWR ©, 206 

350 FOR v=80 TO 220:PLOT 184,v,L:DR à 
AUR 254,0:NEXT 

3éû FLOT 180,80,0:DRAWR 300.0 
370 
AUR 0, GG: NEXT 

380 PLOT 1627,24û,! 
390 FOR x=207 TD 
«240: DRAHR O.-45:NEXT 

400 FOR x=240 TO 420:PLÛT 
REUR 0Q,B0:NEXT 
410 FOR x=260 TO 
RAR 0:35: NEXT 
420 FOR x=315 TO 
RAWR O,3S:NEXT 





480. 6ü.0:DRAW 565, 60: DRAU 


966. 60: DRAH 960.80: DRAUR © 








En 


160,60: DRAW 190,86: DRAû 19 


FOR x=300 70 3éG:FLOT x.80,3:DR 8 


285:FLOT x,265.0:D A 


340: PLOT x.265.0:D A 





x.242,1:D RH 








l faut espérer que le héros n’a 
pee peur du noir car la qua- 
ité des batteries n’est pas 
extraordinaire. Le mode 
d'emploi est contenu dans le listing. Le 
premier listing sera intitulé ENÉRGIX, le 
second ENER-JEU. 







@David 
CAROFF 





265.0tE RG 
ä4û FÜR 3:4,73:D Si 
FAWR 0,5 
350 FÜR OT «200, GeD AL 





RAUR CG, 35: NEXT 
4èû FOR «2908 T0 SI: FLOT « 
RAWR G.SS:NEXT 
























470 PLOT 300,80, 0:DRAW 360 SLT 
360, 160: DRAH 306, 160: DRAK 7 

480 FOR :=300 TO 36G STE pa 
60.0: DRÔWR ©, SG: NEXT 

49ÿ PLOT 300,.90,0:DRAW 22 TE 
60,80: DRAW 315,5 

JOÙ x1=204: FOR x=30 :N 


BG. &: DRAW x1.0 
di LOCATE 8 


4 


T 300. SI: BLOT 400, BG: FLOT 486,300 
:PLOT Si0,3S0:FLOT 6üG. 
389: PLOT 116.360: FLOT 13 
160.358 

S3G FOR Ksû TO 360 STEP 1,5: DEG:ORI 

GIN 590,360: DRAM SINCX) #I0, COS CAT #S 

0, 7:NEXT: ORIGIN 0.6 

946 FOR x=-190 TO 180 STEP 4:DEB:DR :FG 

IGIN 570,360: DRAN SIN (x) #20, COS (x) # 

20.0:NEXT 

590 LOCATE Z,1:PEN B:PRINT CHR$ (SA GI 

}+CHR$ (241 3 +CHR$ (242) +CHR$ (243) «LOC 

TE 7,2:PEN S:PRINT CHR$&(244)+CHR${ 

245) +CHR$ (246) +CHR$ (747) 

Séû RUN''ENER, JEU“ 








UN 





2NÛ 








LOU RAA 


LA R 1 


Là 
+ 
20 ‘ #4 # LE 
+ 
30 "#4 ENERGIX # LC 
4 
4ù "#4 # D 
* 
50 ‘ #4 -David CAROFF- # ÎLE 
+ 
80°’ 44 # 5LF 
* 
F0 ‘#4 juillet 1987 # L5 
x 
F0 ‘ #4 # LH 
4 
50 ‘ #4 CPC 464-684-8128 # LU] 
4 
100 ‘## # FE 
4 
LAON RC 
4 
120 RD 
130 ARREEERREERRRREERRENEERRERE RE 
4 
140 ‘#4 INITIALISATION #5FF 
+ 
190" AMMMANMEMMAREEREEEEREE RG 
: 
160 CLEAR 3KE 
170 tabl=1: ts1=45:son=tipl=1 ÿYE 
180 MODE {: STNK G,0:INE FE b:INE 2,24 5DG 
INK 3,20; BORDER ÿ: PAPER 0 
19ù ENV'1, li, 171, 202ENT 1.9,49,5,9,- EE 
10,15 
200 SYMEOL AFTER 97 NL 
219 SYMBQL 77,0,124,68.124.68.68,0, >CJ 
Ô 
220 SYMBQL 98,0.112,72,112.72,112,0 ?CA 
0 
250 SYHBOL 99.0,60,64,64,64,80,0,0 AJ 
240 SYMBOL 109,0, 112,72,72,72,112,0 ?CQ 


Ù 


250 SYMEOL 101.0,124,64,124,64,174, DJ 


0,0 
260 SYMEOL 102,0,124,64,112,64,64,6 
0 


CB 


2Bù 
Ô 
z9û 


300 
3i0 
û 


320 
350 


346 
.Ù 
350 
.Ù 
360 


370 
0 
380 
0 
390 
( 
aüû 
9 
410 


420 
43û 


44 
450 
() 
4ëû 
ëB 
470 


SYMEOL 103,0,120,64,98,72,120,0 CD 
SYMEOL 164, 0.66, 68, 124, 66. 8. 6, 
SYMEOL 105.0,96,16.18.18.56.0,.0 BE 


SYMBOL 
SYHEL i 


106.0.28, 8.8.8.170.0.6 : 
108.6,64,64,64,84,124,0, BE 





EVMEOL 105,0,40,84,84,84,84.0,0 


SYMEQL 110.0,100,84,76,68, 88.0, 


SYMEOL 111.0,124,68,68,68,124,0 :CR 


SYMBOL 112,0,124.88,124,84,64,.0 3CE 


SYMEOL 113.0.124.66,124,4,4,0,0 } 
SYMEOL 114,0.124.68, 120.68. 68.0 >CU 
SYMEOL 115.0,124,64, 124,4,124,0 à 
SYMBOL 116,0,124,16.16,18,16.0, à 
SYMEOL 117,068. 68.68, 68.124,0, >CK 
SYMEOL 118,0,66, 68.68.40, 16.0,0 BU 


SYMEOL 119,0,B4,84, 84,84, 40 
SYMBOL 120,0, 68, 40, 16,40, 88,0,0 > 


SYMEOL 
SYMBOL 


121,0,68.40,18,32,64  >KQ 
22,0,124,8, 16.32,124,0, 
SYMBOL 251.28, 28,72.62,9,20,36. à 


SYMBOL 250,96,56,18.124,144,40, : 


36,34 


4eû 


NET CC 


79 AE 9€ 
dés dir À 


ee 
G,32,255.299,255 # 


SYMEOL 


,299,299 


49û 
300 
olû 


920 


3û 


546 
Saû 
Ÿ 

J6Ù 


J/Ù 
JBÙ 


RESTORE 

6070 1200 
PAEEOEOEEOEHOREEE 
‘#4 #4 


DESSIN TABLEAUX RH 


HP CET 


nr=INT (RND#12) +2 
IF tabi:2 THEN tabl=i:tsistsi-i 


>FN 
>EU 


IF tabl=1 THEN RESTORE 820 #16 
IF tabl=2 THEN RESTORE 980 ?YH 
ORIGIN G.400:p=0:sc=0: x=8:y=14 LM 


sts=tst: MODE 1: INK 0,0: INK 1,6: INK 





2.24: INK 3,20: BORDER O:FAFER 0 


990 READ a.0,pn.i,c:IF a=-1 
0 ELSE LOCATE a.0:PEN pr:PRINT STRI 
NG$(1.c):607T0 590 

&ÿ0 EVERY 50,1 GOSUE 1170 

610 FEN 3:LOCATE 3,8:FRINT"E":LOCAT 
E 3,0: PRINT'N':LOCATE 3,12:PRINT"E 
“eLOCATE 3, 14: PRINT'R":LOCATE 3,16: 
PRINT'G":LOCATE 3, 18: PRINT" I": LOCAT 
E S,20:PRINT'X":ORIGIN 0, 400:FLOT 2 
d,-107,1:DRAMR 0,-220:DRAMR 30,0: DR 
AWR 0,220: DRAWR -30,0 


+ LOCATE 9,25:PEN 2:PRINT CHR$(ié : 


4)::PEN SPRINT" d.caroff ":PEN Zil 
OCATE 22,25:PRINT “ juillet 1987":M 
OVE 0,-2:DRAUR 639,0,3:DRAWR 0,-599 
2 DRAUR -639,0:DRAW 0,399 
630 FLOT 158,-14, 1: DRAMR 170.0: DRAW 
R C,-20:DRANR -170,0:DRAWR 0, 20:PLO 
T 334,-14:DRAWR 180,0: DRANR 0,-2G:D 
RAUR -180,0:DRAUR ©, 2 
b4ÿ LOCATE B,2:FEN S:PRINT USING "ph 
iles=? ##":p:PEN 1:1IF p=i8 THEN 174 
Q ELSE 690 


650 SOUND i.478.1,4,0,0,10:PEN liLO à 


CATE x, V: PRINT CHR$ (249) :PEN 2:RETU 
RN 


THEN ëû à 





a 
ri 


HP 


FE 


OÙ HROMEERRERREMEENERE TC 
670 ‘#* BOUCLE PRINCIPALE ## :TD 


680 HAFMHMOOMMEPOOOOHHNUE 


690 ORIGIN 0,400: j=JOY (G) 


700 IF j<>1 THEN 720 ELSE c=TEST((x 


#{6)-8,-({(v-1)#16-8)}:IF c=2 THEN G 
OSUE 650 ELSE IF c=1 OR c=3 OR c=û 
THEN FOR t=1 TQ BÜ:NEXT:LOCATE x,v: 
PRINT " "sv=v-{iLOCATE x,v:PEN L:FR 
INT CHR$(249):PEN 2:1F son=i THEN S5 
OUND 4,142,3,5 

10 IF cs THEN p=p+1:6070 640 

20 IF j4r2 THEN 740 ELSE c=TEST{ (x 
#16)-8,-(((v+1)#16)-8)):1IF c=2 THEN 
GOSUB 650 ELSE IF ce3 OR c=0 OR c= 
1 THEN FOR t=i TO B0:NEXT:LOCATE x, 
VEPRINT " "ey=y+liLOCATE x, y: PEN 1: 
PRINT CHR$(249):PEN 2:1F son=1 THEN 
SOUND 4,142,5,5 
736 IF c=i THEN p=p+1:G0T0 846 
740 IF j£>4 THEN 760 ELSE c=TEST((x 
-1)#16-8,-(v#16)+8):IF c=2 THEN 606 
UB 650 ELSE IF c=3 OR c=0 OR c=1 TH 
EN FOR t=1 TO GÜ:NEXT:LOCATE x,v:PR 
INT " "sx=u-liLOCATE x, v:PEN L:PRIN 
T CHR$(251):PEN 2:IF son=1 THEN SOU 


XP 
DE 


#XR 
?TE 


ND 4,143,3,5 
790 IF ci 
F8ù IF ji 
+1)#16-6,-iv#i6i+Bi:IF c=3 THEN GOS 
UE 650 ELSE IF c=$ OR c=0 OR c=1! TH 
EN FOR t=i TO GG:NEXT:LOCATE vi FR 
INT " fixsu+liLOCATE vviPFEN LePRIH 
T CHRS(ZEG):FEN GIF son=1 THEN SOÙ 
ND 4,142,3,5 

770 IF c=i THEN p=r+{:G0TO 645 

780 6070 695 

79û 


THEN p=p+i:GÜTO é4û 


300 ‘#4 DATAS TABLEAUX 


Bit 


820 DATA 7,5,2,26.253,7,8,2,1,255,8 ? 


b.1.1,252,9,6,3,24,144,33,6.1,1,25 


2,54,6,2,1.293,7,7,2,1,293.8.7.3.1. 
144,9,7,2,4.253,13,7,3.1,144,14,7,2 
14233 18, Ta 1.1,252,19, Tièe 253,23 
7 i. 1,292,24,7 “és 4,253,28, 7,%1,14 
4,29,7,2,4,253,33,7,3,1.144,34,7,2, 
1.253 






830 DATA 7,8,2,1,293,8,9.3.1,144,9. 3% 


6,2.1,253,10,6,3,22,144,72,0,3,1,25 
3,33,8.3,1,144,34.8,2,1,253,7, DE 
,293.8,9.3,1, 144, 9,9,2,1,253,10,9 
.1,144,11,9,2,4,255.15,9, Lite 
,9,2,4,293,20,9,3,2,144,22,9,2,4,25 
3,26,9,3,1.144,37,9,2,4,253.31,9,3, 
1.144 

ga0 DATA 32.9,2,1,253,33,9,5,1,144, 
34,9,2,1,253,7,10.2,1,283,8,10,3,4, 
144,12,10,1,1,252, 13. 19,3,1,144,14, 
16,2,1,253.15,10,3,1.144,16,10,%,i, 
253.17,10.5,8, 144,25, 10,2,1,253, 28, 
10,3,1,144,27,10,2,1,293,28, 10,3, 1, 
144,39,10,1, ,1,252,30, 19,3.4, 144,34. 
19,2,1,253 

50 DATA 7,11,2,1,253,9,11,3,1.144, 
9,11,2,1,293,10,11,3,1,144,11,11,2, 
2,253,13,11,5,1,144,14,11,2,1,253,1 
5.11.3,1,144,16,11,2,1,253,17,11,3, 
1.144,18,11,2,6,293,24,11,3,1,144,2 
3,11,2,1,253,26,11,5,1,144,27,11,2, 
1,253,28.11.3,1,144,29,11,2,2,253 


860 DATA 31,11,3,1,144,32,11,2,1,25 > 


3,33,11,3,1,144,.34,11,2,1,253,7,12, 
2,1,253, B, te 144, 9,12,2,1,258,1 
0,12,3,8,144,19,12,2,1 ,253,22, 2 
1,253, 24, 12,3,8, 144,32,12,2,1,25 
AE 144, 34, 12,21, 253, 7 15, 
.23,813,3,1,144,9,13,2,1,252,1 


12,: 
25 


e ta ie 
hi 
un a CA 


RARRARÉREERARERARREERÉLELAÉLES © 


## : 


#XU 
8 THEN 780 ELSE c=TEST( (x 37 


ERP OMERPOMPEEE CRK 


NA 


»1B 


3,3,1.144 
870 DATA 11,13,7.4,253 


es = 
1,253, 17, 







4.16.15,2, 





.2,4,258,31, 13. nl 
33,13, 3,1,144, 34, rires 
2,1,253,8,14,3,3,144,11.14.2 


nc 
ée ile <Jé 


F2 







4,25,14,2,1.253,2b,14,3,3,144,29,14 
:1,1,252,30,14,2,1,253,31,14,3,3,14 
4,34,14,2,1,293,7,15,2,1,253,8, 15,3 
1144,9,15.2,1,253,10.15,3,1,144 
890 DATA 11,15,2,1,253,12.15.3,1,14 
413,191251,298,10519,3.1 148,15. 15 
.2.2,298,17,1803,1: 144, 18,15. 175 
AP ire te LAON OS Le PEL 
re 15,3,i. 144,28, 15,2,1.25 
3,29,15.3,1,144,30,15,2,1,253,31,15 
Bt,144,32,15,2,1,253,33,15,3, 1,14 
4 
900 DATA 34,15.2.1,293,7.16.2, 1.253 
.8.16,3,1,144,9,16,2,1,253,10,16,5, 
1.144,11,16,2,1,253,12,16,3,1,144.1 
3,16,2,1,253, 14,18, 3,4, 144,18, 16,2, 
6,253,24, 16,3,4, 144,28, 16,2, 1. 253,2 
9,16,3,1,144,30,16,2,1,253,31,16,3, 
1,144,32,16,2.1,253,33, 16,3, 1, 144 
910 DATA 34,16,2,1,293,7,17,2, 1,253 
.8,17,3,1,144,9,17,2,1,253,10.17:3, 
3,144,13,17,2,1,293,14,17,3,1,144,1 
5,17,2,1,2531617,31,144,1751742, 
1,253, 18,17.3,2, 144,20, 17,2, 2, 253,2 
2,17,3,2.144,24,17,2,1.283,25,17,3, 
1:144,26.17,2,1,253,27.17,3,1, 144 
920 DATA 28,17,2,1,253,29,17,3,3,14 
4,32,17,2,1,253,33,17.3:1,144,34,17 
.2,1,253,7,18,2,1,253,8,18,3,3,144, 
11,18,2,3,253.14,18,3,1,144,15,18,2 
,1,253,16,18,1,1,252,17,16,3,8.144, 
25,18, 1,1,252, 26, 18,2, 1,253. 27,18,3 
.1.144,28,18,2,3,253,31,18,3,3,144 
930 DATA 34,18.2,1,293,7,19,2,1,253 
.8,19,3,1,144,9,19,2,1,253,10,19,3, 
1,144,11,19,2,1,293,12,19,1, 14252, 1 
3,19,3,2,144,15,19,2,4,253,19,19,3, 
1,144,20, 19,2,2,253, 22,19, 3,1,144,2 
3,19,2.4,253,27,19,3,2, 144,29, 19,1, 
1,252,30,19,2,1,253,31,19,3,1, 144 
940 DATA 32,19,2,1,253,33,19,3,1,14 
4,34,19,2,1,253,7,20,2,1,253,8; 20,3 
,1,144,9,20,2,1,253,10, 20,3, 1,144, 1 
1,20,2, 1,253, 12, 20,3, 1 144,13, 20,2, 


ER 


Re 3.314 31Y 


#L 


AG 


AL 


:D6 


AM 


CT 


1.293.14,4ü,5, 
29,20,3,1,144,30,2û, 
.1.144,73,36,3.1,2 


14,144,26,20,2.1,253, 






,293,31.20,3 
.33,20,3,1, 144 
950 DATA 34,20,7,1,253.7 
48.21,3,1,144,6,21,2,1,253,10,21,3, 
1,144,11,21,2.1,253.12,21,5,1,144,1 
224,208 17.213 1144 1892, 
1,293,19,21,3,1,144,20,71,2,2,2E7,2 
2.21,5,1,144,23,31,5, ,1,253,2 relie 
1.144,25,21,2,4 Sir 3,1.144 

Séû DATA 30,21,2,1,283,31,21,3, 1,14 
253,33.21,3,1.144, 54,21 
12512086 lo 22rdi ls 6. 25,1. 1,252, 


9,22,8,9,144,18.22,2,1,253,19, 22,1, 


4,32,21,2,1.: 


"ET 


édèe 


1,252,20,22,3,2, 444,22,29,1,1,252, 2 
253,24,22.3.9,144,33,22, 1. 
1,252, 34, 22,2, 1,293, 7,23,2, 28,253 
70 DATA -1,0,5,0,0 : 
960 DATA 7,5.2,28,253,7,4.2,1,253.8 
b,1,1,252,9,6,3,24,194,33.6. 41,25 
2,34,6,2,1.253,7,7,2,1,253,8,7,3,1, 
144,9,7,2,1.253,10,7,3,1,144,1147,2 
128812, 0 41572 HAN 
7314144,18,7,2,6,253,24,7.3.1.14 
TETE A ASS dt Fos le Lido 7 
LS 
990 DATA 31,7,3,1,144,32,72,1.258 
33,7,3,1.144,34, 7:2,1,280738, EP 
53,8,8,3,1.144,9,8,2,1,2583, 10, on 
,144,11.8,2.1,253,12,8,3,4, 144. 18,8 
21,253,17,8,3,1,144,18, Hire 
19,8,2,4,144,23,8,2,1,293,74,8,3.1, 
144,35, B2411253,26,8,3,4, 144,50, 6, 
21,253 
1000 DATA 31,6,3,1,144,32, 
13585 351144238,8,2,1,293 792,1 
253,8,9,3,1,144,9,9,2,1,253, 10,943, 
1,144,11,9,2,4,293,15,9,3,1,144,16, 
9,2,1,253,17,9:3,2,144,19,9,1, 1,262 
PL 
.144,25,9.2,1,253,26,9,3,1,144,27,9 
124,253 "AR 
1010 DATA 31.9,3,1,144.32,9,2,1,253 
133:9,3,1,144,34,9,2,1,2537,10,2,1 
1253,8,10,3,1.144,9,10,2,1,253,10,1 
0,3,3,144,18,101,1,252, 14, 10,2,1,2 
53,15,10,3,1,144,16,10,2,2,253,18,1 
0,3,1,144,19,10,2,4,253,23,10,3,1,1 
44,24,10,2,2,253,26, 10,3,1,144,27,1 
0,2,1,258 
1020 DATA 28,10,1,1,252,29,10,3,3,1 
44,32,10,2,1,253,33,10,3, 14 ii, 3451 
0,2,1,253,7,11,2,1,253,8, 11,351, 144 
%11,2,4,253,13,11,3,1,144:14,11,2 
,1,253,15,11,3,4,144,19,11,2,1,2534 









“2j 


La 21,2.1,253 #2 





n 1.7 + 
pèse 253 





3 2E 


#LN 


YF 


#€T 


3KH 


2 M DEA a% 44 
Zésils Pal 25 2311.34 .144,.27,11,2 
Le | -êr.d 
,1,253,28, 11.3,1,144,29,11,3,4,287 
Sà SACS 
1930 DATA 33.11,3,1,144,174,11,2,1,2 
ET J 420 4j AT pin Te 


S3.7,18,2,1,293,8,12,7,2, 144.017, 
1,1.252,11,12,3,5,144.14,12,2,4,255 

.18,12,3,1,144, 19.12.2,1,25 
2,1,253,23,12,3,1,144,34,12 
.28,12,3,3,144,3i «32,124 
32,144,54, LR LEE T1. 2, 1.287 
1645 DATA RSS LP IS EMe AE 


115,15,3,5 









EE 
PNRENTER RENRRe 3 


3,1,144,34, .283,7,14,2.1,255, 
B. 14,3,1,144, 3. 14,2,1,253.10,14,3.4 
.144,14,14,2,4,253,16.14,3,1.144,19 


14.2,1,25 





15,2, 


1090 DATA 23,14,2,1,253,29,14,5,1,1 : 


44,74,14,7,4,253,26,14,7,4,144,32,1 
ER 
7,19,2,1,293,8,15,3,.1,144,9,15,2 
oo. 15,3.1,144,11,15,3,2,253, 
13,15,3,4,144,17, 253 


Dei 233, id, 15,3 
4 L | = d 
1,144,19,15,2,1,253:22, 15,2, 1,253 


1G6G DATA 23,15,3.1,144,24,15,7,1,2 ; 


26104 dede 144,29,19,2,2,283, 3144 
re 4 


ddl. 144.32,19,2,1,253,33,15,5.1,1 
44,34,15,2,1,293,7,14,2,1,253,8, 16, 
3,1.144,9,16,2,1,253,10. 16,3, 1,144, 
1i,16.2,1,253.12,16,1.1,252,13,18,3 
,1,144,14,16,2,2,293.16,18.3.1, 144 
1070 DATA 17,16,2,1,203, 
44,19,18.2,1,253,22,16,2,1,253,23, 1 
6,3.1,144,24,16,2,1,2353,25,16.5.1.1 
44,26, 16,2, 2, 253,28, 16. 1. 1,252, 29,1 
6.3,1,144,30, 16,2, 14253,3, RS LEE 
44,32.16,2,1,2 255, 53 He 148, 34,1 
CAS 7,17,2,1:293,8,17,3,1,144 


neT 
sidos0s 1 7,4, 


sédés 


1680 DATA 9,17,2,1,253,16,17,3,1.14 
4,11.17,2,1,253,12,17,3,1.144,13,17 
,2,3,293,16,17,3,1,144,17,17.2,1.25 
3,18,17,5,1, 144,19,17,2,1,253,22,17 
PS RIRE 144,24,17,2,1,25 
329,17,3,1,144,26,17,3,3,25 


17,2,3,253,29, 17 
131:144,30,17,2,1,253,31,17,3, 


1,14 
4 


1090 DATA 32,17.2,1,253,98,17,3,1.1 36 


6] 
“DJ 


44,34,17,2,1,253,7,18.2,1,253,6,18, 
3,3,144,11,18,2,1,253,12,1B,3,1, 144 
,13,18,2,1,253,14,18,3,3,144,17,18, 

2,1,253,18,18,3,1,144,19,18,2,1,253 
,22118,2,1,258,28 18,1, 144,24,1 


2,1,253,25,18,3,3, 144,28, 18,2, 1,253 


séds 


1100 DATA 29,18,3,1,144,30,18,2,1,2 : 





18,i6.3,1.1 


mr 
PAT 


NT 


*ED 








nt 


ET TI 1077 


33.31,18,3,3,144,34,19,.2,1,255,7,1 





.2i.253.8, IRL 148,9. 19,23 287. 
12418341, 188, 15,19,2,1 2554, 19,3 
4,15,19,23,1,253.16,19, SLR, 


2,1,295,16,19,3,1.144,19,19,2 


1 






a 
,4,253,23,19,3,1.144,24,19,2,1.253 

1110 DATA 25,19,3,1,144,26,19.2,1,7 
52,27,19.2,1,144,28,19.2,1,253,29.1 
LE À ARS A LACS D Ge CO Le US D 
44,34.19,2,1.252,7,20,7,1,255,8.20, 

3.5,144,13,20,2. 1.255, 14,70,3,1,144 
Ne net 





RÉ ee 
3,3,144,20,25,2,2,253,27,70. 





Ne Te 
1120 DATA 25,26, 1,1,202,26,20,2,1,7 % 


32,27,20,3,1,144,28.20,2,1,253,279,2 
G6,3,5,144,34,20,3,1,253,7,21,2, 
3.8,21,3,1.144,9,21,2,5,253,14,21,3 

.1.144,19,21,3,4,257,19,21,5,4,144, 


A+ M4 ACT 979 nG 94 A 
23,21,2,4,253,27,21,5.1,144,26,21,2 
AneT 


10.258887 31.144,53 RARE CFA 
1130 DATA 7.22,2,1,253,8,22,1.1,252 
7 9" 4 1 909 56 79 


+ Fe 
.22,4,10,144,16,22,1,1.252,20,.28, 
L 


ne 
si 


+ € 907 A 4 + 


ET ++ 


9 9 967 99 99 a] 
Zu de 2984 220 204 ll 202 23,224: 





4,35.22,1,1,292,34,22,2,1,253,7,23, 
2,28,253,-1,9,0,0,0 

LAC ARR EMONMEERRÉE 
1150 ‘4x AFFICHAGE TEMPS #+ 


OÙ CRPRENAENREN ENTER ERRERENEE 
H70 t5=ts-1:LOCATE 
T USINE “temps=s HHh':EsseIF to=û T 
HEN GOTO 1690 ELSE IF p=nr THEN INE 
2,0 ELSE IF p=nr+4 THEN INÉ 3,274 
1180 RETURN 

1190 


1200 ‘## MENU # :) 
1210 CARRE RER RE PRE EORRES 


1225 CLS:FEN 2: PAPER O:LOCATE 11,5: 
FRINT STRINGS (26,"4") 


2242:FEN Z:FRIN ÿ{ 


FN 


“HL 


CARRE :YD 


230 FOR v=5 T0 18:LOCATE LE VI PRIN PE 


T MH'ILOCATE 3, ve PRINT HP:NEXT 
1240 LOCATE 11,18:PRINT STRING$ (70, 
"#3: LOCATE 14,22:PEN SPRINT CE N 
ER G I X':LOCATE 14,23: PEN L:PRINT 
STRINGS$ (13,"<") 


1250 FEN 3:LOCATE 14, S:PRINT'MENT PF 53R 


RINCIPAL':PEN 1:LOCATE 14,4:PRINT ù 
RSS TES 24) 

1260 LOCATE 13,7:PEN 3 
PEN {:PRINT " jouer " 
1270 LOCATE 13, 10:PEN 3:PRINT "2-"; 
:PEN 1:PRINT " instructions" 


FA 


PRINT “i-%:: EU 


PJ 


mar 


LOCATE 13,13:P EN 


La [Le 


1285 3: PRINT 


PEN L:PRINT “ son * 
1290 LOCATE 13,16: PEN ZiPRINT ‘te 5 
PEN L:FRINT " niveau de dif+i" 


1300 a$=INÉEY#:a=VAL (agi: IF act OK 
ai THEN 1300 


1316 PRINT CHR#(7): 
1526 IF a$="1" THEN INE O.G:IK 1,8 à 


INE 2 S4:INE 3,20: BORDER CG: PAPER à 
:GOTC 520 

1330 IF a$="2" THEN 135û 

1540 IF a$="3" THEN PEN Z:LOCATE 3. 
24: INPUT SON = (O/Njs"ep$elr ré="t 
"OR r$="9" THEN son=i:G60TO J22GEL 
SE sonzû: — 
1390 IF a$="4" 


ati 





177 
1220 


THEN 1750 


i5o0 ARR OMERERRRONERARE VC 


370 ‘## INSTRUCTIONS 


1380 


1596 MODE L:INE 0,10: INK 1.26: 
SItINÉ SIS:FEN 1:PAPER 2: BORDER iÙ 
:CLS 

1400 PEN Z:PRINT:PRINT" vous 
voila bien embarrasse. ":GOSUR 1670 
1410 FEN I:PRINT:PRINT" vous etes 
prisonnier dans un vieux ":G0SUB !é 
7ü | 

1420 PRINT:PRINT" chateau (peut-et 
re hante :.,).":GO0SUE 167û 

1436 PRINT:PRINT" pour y voir plus 
clair,vous disposez ":GOSUE 1670 


1440 PRINT: PRINT" 
hargent votre iampe":GOSUE 167û 
1450 PRINT: PRINT" 
2 jes vite !!,":GOSUE 1470 
1465 FRINT:PRINT" 

l'une d'entre elies":GOSUE 1670 
1476 PRINT: PRINT" 
bscurite ne se fait ":GOSUE 1870 
1480 PRINT: PRINT" 
s devez en ramasser ":G0SUE 1870 
1490 PRINT:FRINT" plusieurs avant 
le retour tant at-":60SUR 1670 
1500 PRINT:PRINT" 
ere. ":GOSUB 1670 
1510 PRINT:FEN O:PRINT * 

ÉBARRE ESPACE: ":GOSUR 1670 
1520 WHILE INKEYS$<5" ":MEND 
1530 CLS: INK 3,16 
1549 PEN 1:PRINT: PRINT" 
avoir pris toutes les":GOSUB 1670 
1350 PRINT: PRINT" 


#4 y 


APAPPOMRPOPREERMMREEREREE Y 


de poche,ramasse : 
mais par malheur : 
est mauvaise: l'o | 


Pas attendre: vou à 


tendu de la lumi à 


vous devez à 


piles avant ia f : 


NE 2 bi 





>RY 


HT 


de piles qui rec :Eù 








Ceédidactitiel est adressé à 
tous les élèves.qui ont 
choisi la difficile option 
qu'est le latin. Aïnsi, ils 
pourront améliorer leurs 
résultats facilement. 


et éducatif se compose de 


trois parties : 
- les déclinaisons, 


- les verbes, 
- l’ordre des mots dans une phrase. 


Sébastien MIROUX 












Fait entièrement en BASIC, ce logiciel 
reste néanmoins rapide. 


N.B. : Pour les conjugaisons, il est utile 
de noter quelques précisions : 











N- avertir : 
- pouvoir : 
A - être : sum 
aimer : amo 


monéo 
possum 


























ÉERERERRERERÉEEEEREFÉREEEEREESE LÉ 

cm: 1 A 

LA *LE 

VE 

LA bé 
+ 

° 11° ZITESSTICH NET 

# + À SECROIiCN Lt 
+ 

Zi LE 

it + “LC 
# 

& + 1968 LF 
+ 


DU RAR ER SL 





PRE Lee 
RE 0 et LS et PL 








AFTER 155 HR 
100 SYMEOL 194,0,6,0,255.û,0,£ YD 
116 INE CIS: BORDER (SG: INE 1,01 INE EC 
ZTIINE 5,19: PAPER Ci MODE Î 
126 CLEAR:DIM mot$i5di:DIM +$(841 :£M 
130 ON BREAK GOSUE 1296 :0G 


{46 MODE !:WINDOW#1.7,38,3,24:FLOT ;GU 
6,0, 1: HINDOUW#3,5,24,11.15:WINDOWES, 
12,28,2 .24:DRA 637.0: DRÈU 639,399 
:DRAN 9373 DR6N ü, à 

1. 


a 
159 LO 








EN ER G 1 X 


(suite et fin) 


m. 


in du rebours.sinon":GOSUE 1675 
1565 FRUENPRINE la partie se ter FC 
mine. ":G0SUE 1675 

g?û f "BEN CH PRINT: FRIN 
UELQUES CONSEILS ":GOSUE 

1S8G FEN Z:FRINT SFACES (11 4STRINGS GT 
{17,"-":GOSUE 1670 

1590 PEN ZiPRINT:PRINT les points :€ 
bieus vous SE UE i£70 

1600 PRINT: FRINT" u 
ez dans i'obscurite," Gr ië7i 
1610 PRINT:FRINT" ne les eftacez p :X4 
as tous.sinon...":GOSUE 1670 
1620 PEN G:PRINT:PRINT TAR(G 
JOYSTICES": PRINT: GOSUE 147û 
1630 PRINT:PRINT TAB{10)."HONNE CHA BF 
NCE :...":GOSUE 1670 

1649 PEN S:PRINT: PRINT: PRINT: PRINT GLC 
: SBARRE ESFACE:" 


Du } 
= 


m1 ti 
ï 


"A V RC 


1650 MHILE INKEY#<5" "IWEND FH 
1660 GOTO 164ù 3NF 
1570 SOUND 4,50,5,15:RETURN de 


" 168 INK 0,0: INK 1,6: INK 2,24: INE 3 








17 
THEN 1éû GELS IF ss" 0 FR a 
à É ti 





N {PRINT STRINGS (2 
1760 PEN 3:LOCATE 12,6:PRINT STRING 6H 
I 


û, # 1) 


$(20,":"):LOCATE 
$(20,":") 


13,18:PRINT STR 


[27 | 











F4 
CE 
755 LOCAT *E8 
:FEN Z:PRIN 
1900 LOCATE 14, Ci: PEN LePRINT fIts 34 
PEN Z:FRINT © difficile" 
1819 LOCATE 14: FEN LiFRINT "4": RE 
:PEN Z:PRINT "tres difficile" 
1920 LOCATE 14, I6:PFEN LiPRINT "5-is EN 
PEN ZiPRINT © ne cs 
1850 a$= 
2" AND a 
"5" THEN 1830 
1840 PRINT CHR$(TI 2NF 


1850 IF a$="1" THEN tei=6i: GOT 122 :EV 
1840 ÏF a$="2" THEN tsi=45:G0TO 122 BA 
_. IF a$="5" THEN tsl=4G:GOTO 122 EX 
1 IF a$="4" THEN ts1=35:6070 122 >BD 
6 

1890 IF aÿ="5" THEN ts1=20:G070 122 7 
üe 





RS (154) 

1706 FEN 1:LOCATE 10,10: PRINT "i 
CLINAISONS. ":LOCATE 10,13: PRINT "2 
ODRE DES MOTS. ":LOCATE 10, 16:PRINT" 
3 CONJUGAISONS. ":LOCATE 16,19:PRIN 
T"4 RETOUR AU LISTING." 


DE 


180 LOCATE 12,24:PEN Z:PRINT'QUEL E 


ST TON CHOIX ? * 

190 1$=INKEVS: IF 1$="" OR 14="," TH 
EN 190 ELSE i=VAL({1$) 

200 IF 144 OR 141 THEN 195 

210 ON 1 GOTO 230,600,93û, 1296 

220 ‘ #k##4 DECLINAISONS ##### 

230 FAPER#1.0:CLS#1 
245 PEN 1:LOCATE 15, 
ISONS":PEN 2:LOCATE 
NG$(13,CHR#(154)) 


A: PRINT"DEC! 
15.S:PRINT STRI 


LINA : 


?CU 


250 IF m=20 THEN 440 ME 
260 h=INT (RND4 (84) )+] FL 
270 RESTORE 440:FOR i=i T0 h:READ d >KV 
$:NEXT i 

280 IF mot$th}{i"" THEN RESTORE: GOT HW 
C 560 

290 m=n+i:mot$ (h)=d$ FX 
300 PEN 1:LOCATE 3.10:FRINT "DONNE JU 
MOI :" 

310 PEN#2,1:PAFER#2, CO: CLS#Z:LOCATE RG 
3 12:PRINT d$ 

320 LOCATE 3,14: INPUT "=5 "résr$zÙ >MD 
PPER$ (r$) 

330 RESTORE HA 
340 FOR b=i TO (h+84) >NU 
350 READ v$:NEXT b M4 
360 IF r$=v$ GOTD 410 ?NC 


370 PAPERS, 0: CLSHS:PENES, 2:LOCATER 
3,12,24:PRINTHS, "MAUVAISE REPONSE": 

SOUND 1,478 

380 PEN 3:LOCATE 6, 14: PRINT v$:" 

":FOR j=1 TO 1 

O0O:NEXT j:CLSH2:CLSH3 

390 RESTORE 

400 GOTO 250 

416 SOUND 1,180,0,0, 1:PENK3, 2: LOCAT 
E#3,15,24:PRINTHS, "BONNE REFONSE" 
420 p=p+i 

430 FOR 1=1 TO 1S00:NEXT 1:CLSH3:RE 

STORE: 60TO 250 

440 CLS#1:LOCATE#1,8, 12:PRINT#1, "TA 
NOTE EST DE ";p;"SUR 20.":FDR n=1 
TO 2000:NEXT n 

450 GOTO 120 

460 DATA LE NOM SING DE ROSA,LE VOC 
SING DE ROSA,L'ACC SING DE ROSA,LE 


?NA 


TX 


>H6 
3YH 
>UL 


EE 
TD 


?NH 


AJ 
?RC 


= 
| 


GEN SING DE ROSA,LE DAT SING LE K 
SA. L'ABL SING DE ROSA,LE NOM PLUR 

E ROSA,LE VOC FLUR DE ROSA,L'ACC F 
UR DE ROSA.LE GEN PLUR DE ROSA.LE D 
AT FLUR DE ROSA,L'ABL FLUR DE RCSÉ 


ü 
L 


470 DATA LE NOM SING DE BONUS.LE VC y 


C SING DE BONUS.L'ACC SING DE BONUS 
LE GEN SING DE BONUS,LE DAT SING E 
E BONUS, L'AEL 5ING DE BONUS.LE NOM 

PLUR DE RONUS.LE VOC FL, DE BONUS.L 
"ACC FLUR DE BONUS,LE GEN PLUR DE E 
ONUS,LE DAT FLUR DE BONUS, L'AEL FLU 
R DE BONUS 


486 DATA LE NOM SING DE PUER.LE VOC : 


SING DE FUER,L'ACC SING DE FUER.LE 
GEN SING DE FUER,LE DAT SING DE FU 
ER.L'AEL SING DE PUER.LE NOM FLUR D 
E FUER,LE VOC PLUR DE FUER,L'ACC FL 
UR DE FUER,LE GEN FLUR DE FUERLLE D 
AT FLUR DE PUER,L'AEL FLUR DE FUER 


450 DATA NOM SING DE TEMFLUM,VOC SI à 


NG DE TEMFLUM,ACC SING DE TERPLUM.G 
EN SING DE TEMFLUM,DAT SING DE TEMF 
LUM,ABL SING DE TEMPLUM,NON FLUR DE 

TEMPLUM, VOC PLUR DE TEMPLUM. ACC FL 
UR DE TEMPLUM,GEN FLUR DE TEMPLUM,D 
AT PLUR DE TEMPLUM,ABL FLUR DE TEMF 
LUM 


560 DATA NOM SING DE CONSUL, VOC SIN F 


G DE CONSUL, ACC SING DE CONSUL. GEN 

SING DE CONSUL, DAT SiNG DE CONSUL. A 
BL SING DE CONSUL,NOM FLUR DE CONSU 
L,VOC PLUR DE CONSUL.ACC FLUR DE CO 
NSUL,GEN PLUR DE CONSUL,DAT PLUR DE 
CONSUL,ABL FLUR DE CONSUL 


510 DATA NOM SING DE CORFUS, VOC SIN > 


6 DE CORPUS.ACC SIN DE CORFUS, GEN 
SING DE CORFUS,DAT SING DE CORPUS.A 
BL SING DE CORPUS,NOM PLUR DE CORPU 
5, VOC PLUR DE CORPUS, ACC PLUR DE CO 
RFUS,GEN PLUR DE CORPUS, DAT PLUR DE 
CORPUS,ABL PLUR DE CORFUS 

520 DATA LE NOM SING DE CIVIS.LE VO 
C SING DE CIVIS,L'ACC SING DE CIVIS 
LE GEN SING DE CIVIS,LE DAT SING D 
E CIVIS,L'ABL SING DE CIVIS.LE NOM 
PLUR DE CIVIS,LE VOC FL. DE.CIVIS,L 
"ACC PLUR DE CIVIS,LE GEN FLUR DE € 
IVIS,LE DAT PLUR DE CIVIS,L'AEL PLU 
R DE CIVIS 

530 DATA ROSA, ROSA, ROSAM. ROSAE, ROSA 
E, ROSA, ROSAE, ROGAE, ROSAS, ROSARUM, RO 
515, ROSIS 

540 DATA BONUS, BONE, EONUM, BON! . BONO 
BONO, BONI , BON, BONOS, BONRUM, BONIS 
,BONIS 








ULES.CONSULES, CONSULUM, CO 











L' OR o$="CC" THEN GOSUE 900 ELSE G 
OSUB 910 

MN 
NOTE EST DE 
D 2000:NEXT 


"ps" SUR 6. ":FOR n=1 T 


ONSULIEUS 
389 DATA CORPUS, CORPUS, COREUS, COREO 4 
RIS, CORPORT, CORPORE, CORFORA. CORFORA 
. CORFORA, CORFORUM, CORFORIEUS. CORFOR 
TL | IEUS 
990 DATA CIVIS,CIVISI ZE 
VI.CIVE,CIVES,CIVES, CI 
VIBUS, CIVIBUS 
EÛC ‘ +####4 ORDRE DES MOTS ##44a #6 
ü19 p=G:CL5#1 LP 
620 GOSUE 870 3JC 
EE | 630 FEN LiLOCATE Z.8:FRINT'ETABLIS UP 
LE CLASSEMENT: ":PEN 2:LOCATE 2,G:FE 
INT STRINGS(Z1,CHR# (154) ): PEN 1 
640 LOCATE 9,11: INPUT "LE ",o$ :X6 
650 o$=UPPERS (of) 2MJ 
béû IF o$="SUJET OÙ ATTRIBUT" OR o$ :FM 
='SUJET-ATTRIBUT" OR o$="SUJET OÙ L 
ATTRIBUT" THEN GOSUE 9G0 ELSE G0SU 
FE | B 910 
670 LOCATE 8,13: INPUT °L'",.o$ “HD 
6BG o$=UPPERS (0$} MM 
690 IF o$="AFOSTROPHE" THEN GOSUE 9 VA 
00 ELSE GOSUB 910 
700 LOCATE 8,15: INPUT "LE ",o$ >XG 
710 o$=UFFERS (o$) 2MF 
>QY | 720 IF o$="COMPLEMENT D'OBJET DIREC :D4 
T° OR o$="COD" THEN GOSUB 900 ELSE 
GCSUB S1û 
730 LOCATE 8,17: INPUT "LE ",o$ SAW 
740 o$=UPPFERS 0$) ; M] 
750 IF 0$="COMPLEMENT OU NOM" CE 0$ MX 
="COMFLEMENT DE NOM" THEN GOSUE 900 
3VP |  ELSE GOSUB 910 
760 LOCATE 4,9: INPUT "LE ".o$ >XE. 
770 0o$=UFFERS (0$) 3MM 
7006 IF o$="COMPLEMENT D'OBJET SECON *D2 
D" OR o$="C05" THEN GOSUB 900 ELSE 
GOSUB 91û 
7906 LOCATE 8,21: NPUT "LE ,0$ 2XX 
800 o$=UPPERS (0$) >MF 
UN | 810 IF o$="COMPLEMENT CIRCONSTENCIE DH 





820 CLS#1:LOCATE#1,8,12:PRINT#I, "TA K 








IT 


PERESTROIDHIA 


AU SOMMAIRE DE CPC DU MOIS | 


[rMele)ie]:]1- 


, * 


En vente chez votre 
marchand de journaux 21 F 


830 IF p=6 THEN GOTO 120 ELSE 840 

840 CLS#1:GOSUR 870:PEN 1:LOCATE 14 
4 7:PRINT'CORRECTION":PEN 2:LOCATE 1 
4,8: PRINT STRINGS(10,CHRS (154) ) : PEN 

l 

890 LOCATE 9,11: FRINT'LE SUJET OÙ À 
TTRIBUT':LOCATE 8, 13: PRINT"L'AFOSTR 
OPHE":LOCATE 8,15:PRINTLE COD":LOC 
ATE 8,17:PRINT'LE COMPLEMENT DU NOM 
"LOCATE 8,19:PRINT'LE COS":LOCATE 

8,21:PRINT"LE COMPLEMENT CIRCONSTEN 
CIEL':LOCATE 16,25:PRINT "LESFACE]" 


860 IF INKEY$=" " THEN GOTO 120 ELS 
E 860 


870 PEN 1:LOCATE 3,4:PRINT'ORDRE DE : 


S MOTS DANS LA FHRASE LATINE":PEN 2 
LOCATE 3,5:PRINT STRINGS (36, CHRS (1 
94) ) 


880 PEN L:LOCATE 2,11:PRINT'EN er: à 


"sLOCATE 2,13:PRINT'EN 2e: ":LOCATE 

2,19:PRINT'EN Je: ":LOCATE 2,17: PRIN 
T'EN 4e: ":LOCATE 2,19:PRINT'EN Se:" 
{LOCATE 2,21:FRINT"EN 6e:":FEN 2:L0 
CATE 2,12:PRINT STRINGS(7,CHR$ (154) 
}:LOCATE 2, 14:PRINT STRINGS (6, CHR$ { 
154)) 

890 LOCATE 2,16:PRINT STRING$ (6, CHR 
$(154)):LOCATE 2,18:PRINT STRINGS (6 
.CHR$ (154) ):LOCATE 2,20:PRINT STRIN 
6$16,CHR$ (154) )}:LOCATE 2,22:PRINT 5 
TRINGS (6, CHARS (154) } : RETURN 


JYE 
3DN 


NX 


ut 


EC 


?CE 


". 


900 SOUND 1,180,0,0,1:PEN#3, 2:LOCAT 3JR 


E#3,15,24:PRINT#3, "BONNE REPONSE":p 
=p+l:FOR 1=1 TO 1OO0:NEXT 1:CLSHI:R 
ETURN 

916 PAPER#3, O:CLS#3: PEN#S, 2:LOCATE# 
312,24: PRINT#S, "MAUVAISE REPONSE": 
SOUND 1,478:FOR j=1 TO 1OO0:NEXT j: 
CLS#3: RETURN 

7 020 ‘ #4#### CONJUGAISONS #4K#4 


FXY 


?TE 


930 PAPER#1,0:CLS#1 





940 PEN {:LOCATE 15,4:PRINT'CONJUGA XK 


ISONS":FEN Z:LOCATE 19,5:FRINT STRI 
NG$ (12,CHR$ (154) ) 

950 IF v=20 THEN 1120 

980 hh=INT {RND# (84) j +1 


970 RESTORE 1140:FOR j=1 TO hh:READ ; 


W$:NEXT j 


980 IF f$(hh)j<i"" THEN RESTORE:G0TD 


Séû 

990 v=v+i:f$thh)=n$ 

1006 PEN i:LOCATE 3,10: PRINT "TRADU 
15%" 


1010 FEN#2, L:PAFERK2, 0: CLS#2:LOCATE à 


3,12:PRINT W$ 


1020 LOCATE 3,14: INPUT °=5 "ervéiry TT 


$=UPPERS (rv$) 


1030 RESTORE 1140:F0R a=1 TO {hh+84 : 


):READ vv$:NEXT a 
1640 IF rv$zvv$ THEN GOTO 1990 


1090 PAPER#S, 0: CLSH3:PEN#S, 2: LOCATE à 


#5,12,24:PRINTHS, "MAUVAISE REFONGE* 

:SOUND 1,478 

1060 PEN 3:LOCATE 6,14: PRINT vvbs 
sFOR 2x1 T 

O 1000: NEXT 2x:CLS#2:CLSHS 


1070 RESTORE 1140 

1080 GOTO 956 

1090 SOUND 1,180,0,0, L:PEN#3, 2: LOCA 
TEH3,17,24:PRINT#S, "BONNE REPONSE" 
1100 p=p+i 

1110 FOR 11=1 TO 1S00:NEXT 11:CLSH3 
:RESTORE: G0TO 950 


1120 CLS#1:LOCATE#I, 0, 12:PRINTHI,"T à 


A NOTE EST DE ";p; "SUR 20.":F0R nn= 
1 TO 2000:NEXT nn 
1130 GOTO 120 


1140 DATA JE SUIS, TU ES,IL EST, NOUS : 


SOMMES, VOUS ETES, ILS SONT, JE PEUX, 
TU PEUX, IL PEUT, NOUS POUVONS, VOUS P 





OUVEZ, ILS PEUVENT 
1150 DATA J'AIME, TU AIMES,IL BIME,N 
OUS AIMONS, VOUS AIMEZ,ILS AIMENT, J' 
AVERTIS, TU AVERTIS, IL AVERTIT, NOUS 
AVERTISSONS, VOUS AVERTISSEZ,ÏLS AVE 
RTISSENT 
1160 DATA J'ETAIS, TU ETAIS,IL ETAIT 
NOUS ETIONS, VOUS ETIEZ,ILS ETAIENT 
JE POUVAIS, TU POUVAIS, IL FOUVAIT,N 
OÙS FOUVIONS, VOUS POUVIEZ,ILS FOUVA 
IENT 
1170 DATA J'AIMAIS,TU AIMAIS,IL AIM 
AIT, NOUS AIMIONS, VOUS AIMIEZ,ILS AM 
AIENT, J'AVERTISSAIS, TU AVERTISGAIS, 
IL AVERTISSAIT, NOUS AVERTISSIONS, VO 
US AVERTISSIEZ,ILS AVERTISSAIENT 
1180 DATA JE SERAI,TU SERAS, IL SERA 
NOUS SERONS, VOUS SEREZ,ILS SERONT, 
J'AIMERAI, TU AIMERAS, IL AIMERA. NOUS 
AIMERONS, VOUS AIMEREZ. ILS AIMERONT 


1190 DATA JE FUS, TU FUS, IL FUT,NOUS 
FUMES, VOUS FUTES, ILS FURENT, J'AIMA 
1,TU AIMAS, IL AIMA,NOUS AIMAMES, VOU 
S AIMATES, ILS AIMERENT 
1200 DATA J'AVAIS ETE, TU AVAIS ETE, 
IL AVAIT ETE, NOUS AVIONS ETE. VOUS À 
VIEZ ETE,ILS AVAIENT ETE, J'AURAI ET 
E,TU AURAS ETEIL AURA ETE.NOUS AUR 
DNS ETE, VOUS AUREZ ETE,ILS AURONT E 
TE 
1210 DATA SUM.ES. EST, SUMUS,ESTIS,5 
NT, FOSSUM, POTES, POTEST, POSSUMLS, POT 
ESTIS, POSSUNT 
1220 DATA AMD, AMAS, AMAT, AMAMLS, AMAT 
15, AMANT , MONEO, MONES. MONET, MONEMUS, 
MONET IS, MONENT 
1230 DATA ERAM,ERAS, ERAT,ERAMUS, ERA 
TIS,ERANT, POTERAM, POTERAS, POTERAT, P 
OTERAMUS, POTERAT1S, POTERANT 
1240 DATA AMABAM, AMABAS, AMABAT , AMAE 
AMLS, AMABAT1S, AMABANT , MONERAM, MONER 
AS, MONEBAT, MONEBAMUS, MONEEAT 15, MONE 
BANT 


1250 DATA ERO.ERIS,ERIT,ERIMUS,ERIT : 


IS,ERUNT, AMABO, AMABIS, AMABIT, AMABIM 
US, AMABITIS, AMABUNT 


1260 DATA FUI, FUISTI, FUIT, FUIMUS, FU à 


ISTIS, FUERUNT , AMAVI, AMAVISTI, AMAVIT 
4 AMAVIMUS, AMAVISTIS, AMAVERUNT 


1270 DATA FUERAM, FUERAS, FUERAT, FUER #H 


AMUS, FUERATIS, FUERANT, FUERO, FUERIS, 
FUERIT, FUERIMUS, FUERITIS, FUERINT 
1280 ‘ ##### CHOIX No 4 #4##4 

1290 INÉ 0,0:BORDER O: INK 1,26:PEN 
1:MODE 2:LISTe 


>06 


0H 


Du 


?6J 


I 


#GT 


QC 


Ces] 
La] 


AH 


Ca 


AM 


VF 


…. 
m 
pe 


#YD 
#0F 








ATTENTION NOUVELLE VERSION 


TELECHARGEMENT : MODE D'EMPLOI 


que l'indique son nom. Il s'agit de recevoir di- 

rectement, chez vous, des programmes. Pour 
celail faut disposer de très peu de matériel : un Ams- 
trad bien sûr, un Minitel, un câble spécial et un logi- 
ciel de réception. 
Les manipulations sont réduites : il faut brancher le 
câble sur la sortie imprimante du CPC, puis l'autre 
extrémité est connectée à la prise péri-informatique 
du Minitel. Voilà il ne reste qu’ à allumer votre Ams- 
trad puis votre Minitel. Il faut ensuite composer le 36 
15 et entrer le code : ARCADES. Arrivé à ce niveau, 
un menu vous proposera de choisir entre le 
téléchargement sur IBM ou sur Amstrad. Votre choix 
se portera sur le CPC. Une liste de programmes 
apparaîtra alors. Vous pourrez choisir le téléchargement 
ou les renseignements sur Un programme. Si vous 
choisissez le téléchargement, vous verrez sur l'écran 
du minitel Un message indiquant le temps approxi- 
matif de chargement. Oh vous demandera ensuite ‘ 
de lancer le programme Arcades sur votre Amstrad. 
Le titre du programme va s'afficher avec les indica- 
tions ‘Nom du programme et ‘No de block’. Vous 
devez également avoir plaçé une disquette vierge 
dans le lecteur car Arcades va sauver le programme 
au fur et à mesure de son téléchargement. Si tout se 
passe bien les numéros de block défilent et les mes- 
sages ‘reçu’ et ‘accepté’ alternent rapidement. Au 
message ‘fin’ le programme doit être sur la disquette. 
Ils’ agit d'un programme en ASCII. Pour l'utiliser, il faut 
d'abord le charger en mémoire avec un LOAD puis 
sauvegarder le tout avec un SAVE. Le programme sera 
alors exécutable. 


L e téléchargement est une opération aussi smple 





Pour l'instant vous ne trouverez que des programmes 
BASIC déjà publiés dans CPC. Mais nous comptons 
‘étoffer’ la liste avec des programmes en binaires et 
peut-être d'autres surprises. 





LE CABLE DE LIAISON 


Vous pouvez maintenant commander un câble spécial 
qui se branche sur le port joystick de l'Amstrad. 

Les personnes qui possèdent le câble ancienne ver- 
sion (celui du n° 14) doivent savoir que la nouvelle 
version du logiciel Arcades ne fonctionne pas avec 
l'ancien câble. Toutefois ces personnes pourront 
continuer à télécharger avec leur ancien système. 









































| LA DISQUETTE "ARCADES" + LE CABLE (Nvelle version)* È 
| Je désire recevoir : — Kit téléchargement pour Amstrad CPC à 98F = | 
| — Lot de 4 disquettes vierges à 98 F = | 
| Frais de port = 14F | 
| TOTAL A PAYER “ 
| NOM Prénom : 
Adresse 
| Code Postal Ville | 
| Date : Signature : | 
| * Ne peut être vendu séparément | 
| Merci d'écrire en majuscules. 
| Ci-joint un chèque libellé à l'ordre des Editions SORACOM. | 
bi: Retournez le(s) bulletin(s) ou une photocopie aux Editions SORACOM - La Haie de Pan - 35170 BRUZ : 
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NOS PRODUITS 
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_ BRETAGNE EDIT PRESSE 
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